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Einleitung 


Programme, die jeder braucht 


Interessante Informationen und hervorragende Listings zu 
ausgesuchten Themen finden Sie in unserer 64’er Sonderheft¬ 
reihe. In diesem Sonderheft haben wir bislang noch nicht veröf¬ 
fentlichte Listings und Tips & Tricks zu den Themen 

□ Datasette, 

□ Floppy 

□ Basic-Erweiterungen 

□ Programmier-Hilfen 

zusammengetragen. Ob Anfänger oder Profi—für jeden ist et¬ 
was dabei. 

Zwei Speichermedien sind es, die der C 64-Besitzer in er¬ 
ster Linie einsetzt: die Datasette und die Floppy 1541. Die Da¬ 
tasette trifft man hauptsächlich dort an, wo entweder die Fi¬ 
nanzlage nicht alizu rosig aussieht, oder wo jemand erst einmal 
in die Computerwelt hineinschnuppern will. »Aufrüsten« ist ja 
immer noch möglich. Aber Berichte von Händlern und Umfra¬ 
gen zeigen es ganz deutlich: der Vormarsch der Floppy ist 
nicht zu bremsen. Und das mit Recht. 

Schnelle Datasette 

Datasetten-Benutzer haben oft Schwierigkeiten, Kassetten 
von Freunden oder Bekannten zu laden. Vielfach liegt es an ei¬ 
nem verstellten Tonkopf. Wir geben Ihnen wertvolle Tips, wie 
man fremde Kassetten trotzdem nutzen kann. Das Laden und 
Speichern von Programmen ist bei der Datasette ein langwieri¬ 
ges Unternehmen. Mit unserem Quick-Tape wird sie auf einmal 
schneller als die Floppy. 

Floppy- und Anwendungslistings 

Unwahrscheinlich vielseitig ist der Komplex »Floppy«, für 
den wir einiges an Hilfsprogrammen und wertvollen Anwen¬ 
dungen anbieten. Eine schnelle Förmatierroutine und ein sehr 
schnelles Kopierprogramm sind ebenso gefragt wie einige 



Tips und Tricks-Listings 

Tips und Tricks sind immer wieder begehrt und kommen 
selbstverständlich nicht zu kurz. Darunter sind einige echte 
Leckerbissen, zum Beispiel die Cross-Reference-List, die Ihre 
Basic-Programmedurchleuchtet. Komplettin Maschinencode 
geschrieben und deshalb sagenhaft schnell. Für Neugierige 
ist der Sourcecode gleich mit abgedruckt. 

Alles in allem erhalten Sie in diesem Sonderheft rund 45 Li¬ 
stings, die es in sich haben. Alle Programme wurden mit Prüf¬ 
summen versehen, um Ihnen das Eintippen zu erleichtern. Sie 
finden dazu zwei Programme, den Checksummer 64 V3 (auf 
Seite 6 tnr 3asic-Programme) und den MSE (für Maschinen- 
sprache-Listings auf Seite 8). Damit können Sie alle anderen 
Programme sicher und bequem abtippen. 



Programme zur Manipulation des Directorys. Greifen Sie in das 
DOS der Floppy ein mit dem Floppy-Monitor! Vergessen Sie 
die manchmal sehr umständliche Bedienung des Floppy-Lauf- 
werks! Arbeiten Sie mit »Disk-Master«! Eine komplette Datei¬ 
verwaltung, mit der unter anderem eigene Masken erstellt wer¬ 
den können, wird Sie begeistern! 

Basic-Erweiterungen 

Wir haben einige sehr interessante Basic-Erweiterungen für 
Sie herausgesucht, die alles bieten, was Sie sich vorstellen 
können. Sind Sie ein Liebhaber der strukturierten Programmie¬ 
rung? Dann ist »aufpoliertes Basic« das Richtige für Sie. Sogar 
Programmierer von Spielen dürfen sich auf eine spezielle 
Basic-Erweiterung für Spiele freuen. Und mit »Disc-Basic« be¬ 
kommen Sie das Floppy-Laufwerk erst richtig in den Griff. 



Listing-Service auf Kassette und Diskette 

Wer keine Zeit oder keine Lust hat, alle Programme selbst 
in mühevoller Kleinarbeit abzuschreiben, kann wieder auf 
den bewährten Leserservice zurückgreifen. 

Alle Listings befinden sich auf 

□ Diskette mit der Bestellnummer L6 85 S5D. Die Diskette 
kostet 29,90 Mark. 

□ Kassette mit der Bestellnummer L6 85 S5K. Die Kasset¬ 
te kostet 19,90 Mark. 

Bitte verwenden Sie für Ihre Bestellung die beigefügte 
Postscheck-Zahlkarte zur Überweisung des Rechnungs¬ 
betrags. Sie erleichtern uns die Auftragsabwicklung und 
Sie sparen sich die 3 Mark Versandkosten! 
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Eintipphilfe 


C 64/VC 20 


Checksummer 
64 — Neu 

Der Checksummer 64 V3 überprüft 
jede Basic-Zeile direkt nach der Ein¬ 
gabe, erkennt Fehleingaben und auch 
Vertauschungen von Zahlen und Zif¬ 
fern, und erspart deshalb eine auf¬ 
wendige Fehlersuche. 

Der Checksummer 64 V3 ist ein kleines Maschinenpro¬ 
gramm, das Sie sofort unterrichtet, ob Sie die jeweilige Pro¬ 
grammzeile korrekt eingegeben haben. 

So gehen Sie vor: 

1. Programm abtippen und speichern. 

2. Starten mit RUN 

3. Nach kurzer Zeit sehen Sie am Bildschirm: 

CHECKSUMMER 64, CHECKSUMMER AKTIVIERT, 

AUSSCHALTEN MIT POKE 1,55, ANSCHALTEN MIT POKE 
1,53, READY. 

4. Anschalten des Checksummer 64 V3 mit POKE 1,53. 

5. Test: Geben Sie in einer freien Zeile ein: »1 REM« und 
drücken die RETURN-Taste. Am Bildschirm oben links sollten 
Sie die Prüfsumme <63> sehen. 

6. Geben Sie ein Listing aus unserem Heft ein. Nach jeder 
Zeile wird die Zahl, die im Listing in Klammern < > steht, in 
den Bildschirm eingeblendet. Stimmen die Zahlen nicht über¬ 
ein, so liegt vermutlich ein Eingabefehler vor. Die Zahl in den 
Klammern, und auch die Klammern selbst, dürfen beim 
Abtippen nicht mit eingegeben werden! 

7. Dieser neue Checksummer 64 V3 bemerkt, im Gegen¬ 
satz zu den bisherigen, auch Vertauschungen von Zahlen und 
Buchstaben. 

8. Unsere Basic-Listings enthalten keine Steuerzeichen 
mehr. Diese werden ersetzt durch Klartext und stehen zwi¬ 
schen geschweiften Klammern. Deshalb sind weder die 
Klammern noch was dazwischen steht, abzutippen, sondern 
die in Tabelle 1 aufgeführten Tasten zu drücken. Auf Ihrem 
Bildschirm erhalten Sie dann wieder die entsprechenden 
Grafikzeichen (siehe Bild 1 und 2). 

9. Alle Grafikzeichen werden ebenfalls ersetzt durch unter¬ 
strichene oder überstrichene Großbuchstaben. Unterstri¬ 
chene Buchstaben bedeuten, daß Sie die SHIFTTaste und 
den angegebenen Buchstaben drücken müssen, überstri¬ 
chene jedoch die Commodore-Taste mit dem Buchstaben. 
Auch hier erhalten Sie am Bildschirm das entsprechende Gra¬ 
fikzeichen und nicht etwa das im Listing erkennbare Zeichen 
(siehe Bild 1 und 2). 

Checksummer VC 20 V3 

Der Checksummer VC 20 V3 ist im Prinzip genauso auf¬ 
gebaut wie der Checksummer 64. Da beim VC 20 jedoch 
nicht die Möglichkeit besteht, das ROM softwaremäßig zu mo¬ 
difizieren, mußte ein anderer Weg als beim Commodore 64 
gewählt werden, um die Checksumme zu generieren. 

In ihrer Funktionsweise unterscheiden sich der Checksum¬ 
mer VC 20 und der Checksummer 64 nicht. Es gelten fol¬ 
gende Sonderregelungen bei der Benutzung des Checksum¬ 
mer VC 20: 

— Da der Basic-Bereich nicht belegt werden soll, ist das Pro¬ 
gramm im Kassettenpuffer abgelegt. 

— Angeschaltet wird der Checksummer VC 20 mit »SYS 
955«. 


CTRL steht für Control-Taste, so bedeutet [CTRL-A], daß Sie die 

Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

(DOWNj 

Taste neben rechtem Shift, Cursor unten 

[UP] 

Shift-Taste & Taste neben rechtem Shift; Cursor hoch 

[CLR] 

Shift-Taste & 2. Taste ganz rechts oben 

[INST] 

Shift-Taste & Taste ganz rechts oben 

[HOME] 

2. Taste von ganz rechts oben 

(DEL) 

Taste ganz rechts oben 

[RIGHT] 

Taste ganz rechts unten 

(LEFTI 

Shift-Taste & Taste unten rechts 

(SPACE] 

Leertaste 

(Fl) 

grauer Tastenblock rechts 

(F3J 

grauer Tastenblock rechts 

[F5] 

grauer Tastenblock rechts 

[F7] 

grauer Tastenblock rechts 

(F2) 

grauer Tastenblock rechts & Shift 

[F4] 

grauer Tastenblock rechts & Shift 

[F6] 

grauer Tastenblock rechts & Shift 

[F8] 

grauer Tastenblock rechts & Shift 

(RETURN] 

Shift-Taste & Return 

[BLACK] 

Control-Taste & 1 

(WHITE] 

Control-Taste & 2 

[RED] 

Control-Taste & 3 

(CYAN] 

Control-Taste & 4 

(PURPLE] 

Control-Taste & 5 

(GREEN] 

Control-Taste & 6 

(BLUE] 

Control-Taste & 7 

[YELLOW] 

Control-Taste & 8 

(RVSON) 

Control-Taste & 9 

[RVOFFJ 

Control-Taste & 0 

[ORANGE] 

Commodore-Taste & 1 

(BROWN] 

Commodore-Taste & 2 

(LIG.RED) 

Commodore-Taste & 3 

(GREY 1 ] 

Commodore-Taste & 4 

(GREY 2] 

Commodore-Taste & 5 

(L'C."REEN] 

Commodore-Taste & 6 

(UG.BLUE] ' 

Commodore-Taste & 7 

(GREY 3] 

Commodore-Taste & 8 

Wenn Sie sich erst einmal an die in Klartext geschriebenen Steuerzei- 

chen gewöhnt haben, werden Sie den Vorteil dieser Schreibweise 

erkennen. Der zu dem jeweiligen Steuerzeichen gehörende Klartext 

ist so verfaßt, daß Sie leicht die Taste beziehungsweise die Tasten- 

kombination finden, die Sie drücken müssen. 

Die Steuerbefehle im Klartext 


— Abschaltung des Checksummer VC 20 wird mit »SYS 
58459« vollzogen. 

Achtung: Nehmen Sie keine Kassetten-Operationen vor, 
wenn der Checksummer VC 20 eingeschaltet ist. Da das 
Betriebssystem den Kassettenpuffer mit Daten belegt, kann 
der Checksummer VC 20 überschrieben werden, was zur 
Folge hat, daß sich der Computer bei aktiviertem Checksum¬ 
mer VC 20 »aufhängt«. Wollen Sie deshalb ein Programm auf 
(von) Kassette abspeichern (laden), so müssen Sie erst den 
Checksummer VC 20 abschalten (SYS 58459). 

Daraufhin kann der Kassettenpuffer mit Daten überschrie¬ 
ben werden, ohne daß der Computer »aussteigt«. 

Als Sicherung wird bei der Initialisierung geprüft, ob das 
zuletzt angesprochene Peripherie-Gerät der Kassettenrecor¬ 
der war. Ist das der Fall, so werden die Betriebssystemroutinen 
LOAD und SAVE für die Benutzung gesperrt. Der Rechner mel¬ 
det bei Aufruf einer dieser beiden Routinen READY, ohne wei¬ 
tere Aktionen durchzuführen. Diese Sicherung kann man nach 
der Tipparbeit aufheben, wenn man den Checksummer VC 20 
mit SYS 58459 abschaltet. Dadurch wird der Kassettenpuffer 
für andere Daten freigemacht. Weiterhin wird dann durch 
gleichzeitiges Drücken der Tasten »Run-Stop & Restore« 
erreicht, daß die Betriebssystemroutinen LOAD und SAVE wie¬ 
der eingerichtet werden. 

— Bei Benutzung einer Diskettenstation brauchen Sie nicht 
darauf zu achten, daß bei LOAD beziehungsweise SAVE der 
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C 64/VC 20 


Eintipphilfe 


Checksummer VC 20 überschrieben wird, da der Kassetten¬ 
puffer für die Diskettenstation normalerweise nicht genutzt 
wird. Deshalb können Sie die beiden Routinen weiterhin nor¬ 
mal nutzen, sofern der Rechner bei der Initialisierung des 
Checksummer VC 20 feststellt, daß das zuletzt angespro¬ 
chene Peripherie-Gerät nicht der Kassettenrecorder war. 

— Bedingt durch den anderen Aufbau des Checksummer VC 
20 wird anders als beim Checksummer 64 nach der LOAD- 
Routine keine Checksumme ausgegeben. 

— Wird eine Zeile gelöscht, also eine Zahl zwischen 0 und 
65999 eingegeben, und danach Return gedrückt, so wird 
eine Checksumme ausgegeben, die aber keine Bedeutung 
hat. 

Sie können die Programme auch weiterhin ohne den Check¬ 
summer eintippen. (F. Lonczewski/gk) 

Hinweis: [13 SPACE] bedeutet 13mal die Leertaste drücken 

1 REM ******************************* 

2 REM * * 

3 REM * CHECKSUMMER 64 V3 * 

4 REM * ' * 

5 REM * WRITTEN MftERZ 1985 BY * 

6 REM * * 

7 REM * FRANK LONCZEWSKI * 

8 REM * * 

9 REM ******************************* 

10 PRINT"{CLR,USPACE,RVSON}CHECKSUMMER 64 

V3<RV0FF>" 

11 PRINT"{2D0WN,9SPACE>EINEN MOMENT, BITTE 

12 FOR 1=828 TO 864:READ A:POKE I,A-.PS=PS+ 

A+l:NEXT I 

13 IF PSO5B02 THEN PRINT"PRUEFSUMMENFEHLE 
R IN ZEILEN 20-22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A+1:NEXT I 

15 IF PS<>16267 THEN PRINT"PRUEFSUMMENFEHL 
ER IN ZEILEN 22-30":END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT”{4DQWN,9SPACE>CHECKSUMMER AKTIVIE 
RT. " 

18 PRINT"{2D0WN>AUSSCHALTEN : P0KE1,55" 

19 PRINT"{DOWN>ANSCHALTEN{2SPACE>: POKE1,5 
3":NEW 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3,208,238,202 

22 DATA 16,230,96,160,224,192,0,160,2,169, 
0,170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

24 DATA 170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101,254,133 
,254,76,111,228,192,4 

26 DATA 48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32,210,255,208,12,0,92,72, 
32,201,255,170,104 

28 DATA 144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 

© 64'er 

Dieser neue Checksummer 64 V3 erkennt auch 
Vertauschungen von Zahlen. 


21 PRINT"{CLR,SPACE,RVSONJCHECKSUMMER V3 V 
C—20{RVOFF3" 

22 PRINT"{2DOWN3EINEN MOMENT, BITTE..." 

23 FOR I=B27 TO 1019:READ A:POKE I,A 

24 PS=PS+A+1:NEXT I 

25 IF PS024464 THEN PRINT" {DOWNJPRUEFSUMM 
ENFEHLER !":END 

26 SYS 981:PRINT"CHECKSUMMER AKTIVIERT." 

27 PRINT"AN :SYS981" 

28 PRINT"{DOWN3AUS:SYS58459, BEI CAS-I4SPA 
CE3SETTE ZUSAETZLICHI5SPACEJRUN/ST0P & 
RESTORE" 

29 PRINT"{DOWNJBEI AKTIVIERTEM CHECK-SUMME 
R KEIN"; 

30 PRINT" CASSETTEN-BETRIEB (LOAD, SAVE){2 
SPACEJERLAUBT!":NEW 

31 DATA 32,95,3,134,122,132,123,32,115,0,1 

70,240,243,162,255 

32 DATA 134,58,144,10,162,0,134,255,32,121 
,197,76,225,199,162 

33 DATA 1,134,255,76,156,196,166,255,224,1 
,240,3,76,96,197 

34 DATA 160,2,169,0,170,133,254,177,95,240 
,40,201,32,208,3 

35 DATA 200,208,245,133,253,138,41,7,170,2 
40,14,72,165,253,24 

36 DATA 42,105,0,202,208,249,133,253,104,1 
70,232,165,253,24,101 

37 DATA 254,133,254,76,119,3,192,4,48,219, 
198,214,165,214,72 

38 DATA 162,3,169,32,157,1,4,189,209,3,32, 
210,255,202,16 

39 DATA 242,166,254,169,0,32,205,221,169,6 
2,32,210,255,104,133 

40 DATA 214,32,135,229,169,141,32,210,255, 
162,0,134,255,240,148 

41 DATA 9,60,18,19,169,59,141,2,3,169,3,14 
1,3,3,165 

42 DATA 186,201,1,208,16,t6?,116,141,48,3, 
141,50,3,169,196 

43 DATA 141,49,3,141,51,3,173,136,2,141,17 
0,3,96 

© G4'er 


Der neue Checksummer VC 20 V3 erkennt auch 
Vertauschungen von Zahlen. 


5 PRINT CHR*(14> <242> 

10 PRINT"{CLR}" <254> 

30 PRINT"<4DOWN,2SPACE>3ESTtSPACE,BLUE,6SP 

ACE>" <022> 

© G4'er 


Bild 1. So könnte ein Teil eines Listings abgedruckt sein. In 
Zeile 10 müssen Sie nach den Anführungsstrichen die 
CLEAR/HOME-Taste drücken und nicht die Klammern mit 
dem Wort CLR. In Zeile 20 drücken Sie nach den Anführungs¬ 
strichen die Commodore-Taste und den Buchstaben Q, 
gefolgt von mehreren SHIFT und Stern-Taste, und zum Schluß 
die Commodore-Taste und den Buchstaben W. In Zeile 30 ist 
es viermal die Cursor-nach-unten-Taste, gefolgt von zweimal 
die Leertaste, dann SHIFT und T und normal EST, zum Schluß 
noch einmal die Leertaste, die Farbtaste Blau (Control und 7) 
und sechsmal die Leertaste. Zeile 40 besteht lediglich aus 
mehreren Grafikzeichen, die mit der Commodore-Taste und B 
erzeugt werden. 




10 REM*************** 

11 REM* * 

12 REM* CHECKSUMMER * 

13 REM* * 

14 REM* V3 VC20 * 

15 REM* * 

16 REM* WRITTEN * 

17 REM* MAERZ 1985 * 

18 REM* BY * 

19 REM*F. LONCZEWSKI* 

20 REM*************** 


5 PRINTCHR*(14) 

10 PR INT "CI" 

20 PRINT" I-1" 

30 PRINT"iMBW I EST 3 

40 PR I NT " V.V. , .V.V.V.V.V«V.V.V.V. , «V.V«" 


Bild 2. Auf dem Bildschirm oder Ihrem Drucker sieht das 
Listing (Bild 1) so aus. 





* 














Eintipphilfe 


C 64 


MSE - Abtippen 
sicher und 
leicht gemacht 

Ähnlich wie der »Checksummer« ist 
auch der MSE ein Hilfsmittel bei der 
Eingabe von Listings, diesmal jedoch 
bei reinen Maschinensprache-Pro¬ 
grammen. 

Im Gegensatz zum »Checksummer« aber ist die Eingabe 
nicht ohne den MSE möglich. Der MSE verringert die Tipp¬ 
arbeit um ein Drittel und schließt Fehleingaben vollkommen 
aus. Außerdem können Sie die Werte blind eingeben, ohne 
andauernd auf den Bildschirm schauen zu müssen. Dies wird 
durch akustische Meldungen realisiert. 

MSE ist ein Maschinenspracheditor, mit dem ein Vertippen 
ausgeschlossen ist. Eine abgetippte Zeile wird nur angenom¬ 
men, wenn sie richtig ist. Eine Checksumme am Ende jeder 
Zeile prüft, ob die richtigen Werte in der richtigen Zeile an de*r 
richtigen Stelle stehen. Wenn nicht, ertönt ein Warnsignal, 
und man beseitigt den Fehler. 

War die Zeile korrekt, erklingt ein Gong, und die näöhste 
Zeilennummer wird ausgegeben. Damit ist also auch »blin¬ 
des« Eintippen möglich; Sie können sich voll auf dejv ieft kon¬ 
zentrieren. 


weiteren Angaben mehr erforderlich. Das Programm kann 
dann ganz normal wieder geladen und gestartet werden. 
Wenn Sie nicht alles auf einmal tippen wollen, können Sie 
jederzeit unterbrechen und den eingetippten Teil mit »CTRL- 
S« abspeichern. Wollen Sie Weiterarbeiten, laden und starten 
Sie MSE wieder. 

Geben Sie auf die Frage nach der Startadresse aber jetzt 
»L« ein, um Ihr Teilprogramm zu laden. Jetzt können Sie 
mit »CTRL-N« die Adresse eingeben, an der Sie weitertippen 
müssen. Wenn Sie sich nicht gemerkt haben, wie weit Sie 
gekommen sind, geben Sie nach dem Laden »CTRL-M« ein. 

Auf die Frage nach der Startadresse antworten Sie mit der 
Anfangsadresse, die links in der Kopfzeile auf dem Bildschirm 
steht. Nun wird Ihr Programm aufgelistet. Mit »SPACE« wird 
das Listen fortgesetzt, mit »STOP« abgebrochen. Das Ende 
Ihres Programmteils erkennen Sie sehr einfach daran, daß nur 
noch der Wert »AA« in der Zeile steht. Die Adresse dieser 
Zeile müssen Sie anschließend mit »CTRL-N« eingeben. Das 
Programm ist nur mit »STOP/RESTORE« zu verlassen. Spei¬ 
chern Sie aber vorher unbedingt immer Ihren Text ab. 
Hinweise zum Abtippen 

Vor dem Abtippen oder späteren Wiederladen des MSE- 
Laders müssen Sie unbedingt folgende Zeile eingeben: 
POKE 43,1: POKE 44,32: POKE 8192,0: NEW 

Starten Sie das Programm mit RUN. Fehlerhafte Zeilen wer¬ 
den angezeigt und müssen korrigiert werden, bis der Lader 
zum »READY« durchläuft. Jetzt müssen Sie das fertige MSE- 
Programm abspeichern. Dazu brauchen Sie nur »RETURN« 
zu drücken, weil die erforderlichen Angaben schon auf dem 
Bildschirm stehen. (Kassettenbesitzer müssen in Zeile 343 
die letzte Zahl in »1« abändern.) Ab jetzt können Sie »MSE 
VI.0« direkt, also ohne den DATA-Lader, benutzen. MSE VI.0 
wird oanz normal mit »,8« geladen (keine POKEs notwendig). 

(N. Mann / D. Weineck / gk) 


So arbeitet man mit MSE 

Laden und starten Sie MSE. Zuerst wird der Programm¬ 
name und die Start- und Endadresse erfragt. Diese Angaben 
entnehmen Sie dem Kopf des jeweiligen abgedruckten 
Listings. MSE meldet sich dann mit der Zeilennummer der 
ersten Zeile. Wenn Sie die Zeile richtig eingegeben haben, 
erscheint die nächste Zeilennummer und so weiter bis zum 
Ende. Zum Schluß wird das fertige Programm mit »CTRL-S« 
auf Diskette oder Kassette abgespeichert. Dazu sind keine 


MSE-Befehle: 

DEL löscht die letzte Eingabe. 

CTRL-S speichert das eingetippte Programm ab. 

CTRL-L lädt ein Programm. Start- und Endadresse werden automa¬ 
tisch ermittelt. 

CTRL-M listet den Speicherinhalt. Abbruch mit STOP-Taste, weiter mit 
Leertaste. 

CTRL-N erlaubt die Eingabe einer neuen Adresse zum Weitertippen. 
CTRL-P gibt ein MSE-Listing auf dem Drucker aus. 


100 REM **************************** 

110 REM * * 

120 REM * MSE LADER * 

130 REM * * 

220 REM **************************** 

230 REM 

240 DIM H(75): FOR 1=0 TO 9 

250 H <48+1)=1: H(65+1)=1 + 10:NEXT 

260 FOR 1=2048 TO 3755 : READ AS 

270 H=ASC <LEFTS(AS,1)):L=ASC(RIGHTS(AS,1)) 

280 D=H(H)*16+H(L):S=S+D:POKE I,D 

290 A=A+1:IF A<20 THEN NEXT:A=-1 

300 PRINT " ZEILE:1000+Z; 

310 READ V :Z=Z+1:IF V=S THEN 330 
320 PRINT"PRUEFSUMMENFEHLER !":STOP 
330 IF A<0 THEN 341 

340 S=0:A=0:PRINT:NEXT 

341 PRINT" CCLRTPS.43,1: PS.44,8: PQ45,172: PQ46 

,14 

342 POKE 631,19:POKE 632,13:P0KE 633,13:P0 
KE 198,3 

343 PRINT"<3D0WN}SAVE"CHRS(34)"MSE V1.0"CH 
RS(34)",8 

344 END 


<091 > 

350 REM : 

< 159> 

360 REM 

<206> 

370 REM 

< 179> 

380 REM 

<211 > 

390 REM : 

<036> 

1000 DATA 

< 113> 

,00, 

<041 > 

1001 DATA 

< 198> 

,A0, 

<199> 

1002 DATA 

<219> 

,4C, 

< 141 > 

1003 DATA 

<011> 

,B3, 

<218> 

1004 DATA 

< 138> 

,02, 

<221 > 

1005 DATA 

<046 > 

,B1, 
1006 DATA 

<010> 

,B5,<( 
1007 DATA 

<249> 

, 8E, 
1008 DATA 

< 171 > 

,43,! 

<092> 

1009 DATA 


****************** 
* DATA * 

****************** 


< 111 > 

< 149> 
<078> 

< 169> 

< 151 > 

< 119> 
<054> 

< 144> 
<237 > 
<217> 
<013> 

< 199> 
<091 > 

< 167> 


Der MSE zum bequemen Abtippen von Assemblerprogrammen. Beachten Sie 
den Checksummer auf Seite 6. 
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C 64 


Eintipphilfe 


,90,EF,4C,FB,B4,A2,02,B6,58, 3118 <152> 

1010 DATA A9,A6,A0,9D,20,F2,Bl,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C,0B,B1,20,D2,FF,A6,58, 2322 <121> 

1012 DATA 95,F7,C6,58,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,8B,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,68,B5, 2282 <225> 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,85,F9,A5,F8,20,02,B1,05,F9 

,60,C9,3A,90,02,69,08,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <1BB> 

1017 DATA 59,A0,14,A9,92,20,F2,Bl,CA,D0,FA 

,84,57,68,68,4C,8B,B1,A6,D3, 2891 <197> 

1018 DATA E0,08, B0,03,4C , 92 , B0,20, D2 , FF, A6 

,58,E0,02,90,09,C6,59,20,D2, 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,BE,B0,48,4A,4A 

,4A,4A,20,59,B1,68,29,0F,C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,D1,B1,20,48,B2,20, 2261 <073> 

1021 DATA EA,B1,20,9F,B2,A5,FC,20,4E,B1,A5 

,FB,20,4E,B1,20,ED,B1,A9,3A, 2860 <148> 

1022 DATA A0,20,20,F2,Bl,A9,00,85,59,20,8E 

,B0,20,ED,B1,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,CB,84,59,00,08,90,EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA E8 , D0 , EF , 60, A9,0D, 2C, A9,20,4C, D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,Bl,5C,F0,06,20,D2,FF,C8,D0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,B1 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <i56> 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5 

,5A,65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <183> 

1032 DATA A9,FB,20,FF,Bl,A0,01,B9,00,02,20 

,D2,FF,CC,00,02,C8,90,F4,A9, 2692 <098> 

1033 DATA 10,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,B1,A5,61,20,4E, 2453 <236> 

1034 DATA B1,20,ED,B1,A5,60,20,4E,B1,A5,5F 

,20,4E,B1,A9,9F,20,D2,FF,20, 2575 <038> 

1035 DATA EA,B1,24,5E,10,01,60,A9,12,20,D2 

,FF,A2,28,20,ED,Bl,CA,D0,FA, 2646 <161> 

1036 DATA A9,92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4,A9,7B,85,A6, 2945 <204> 

1037 DATA A9,04,85,A5,85,A7,A2,13,A0,27,Bl 

,A4,91,A6,88,10,F9,CA,F0,19, 2671 <208> 

1038 DATA 18,A5,A4,69,28,85,A4,90,02,E6,A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06,D4,A9,11,8D,04,D4,A9 

,32,BD,01,D4,A9,00,8D,00,D4, 2413 <126> 

1041 DATA A0,80,20,09,B3,A9,10,8D,04,D4,60 

,A2,FF,CA,D0,FD,8B,D0,F8,60, 2914 <240> 

1042 DATA A9,0F,8D,18,D4,A9,2D,8D,05,D4,A9 

,A5,8D,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4,A9,05,8D,00,D4,A0 

,FF,20,09,B3,A9,20,8D,04,D4, 2250 <078> 

1044 DATA A9,00,BD,01,D4,BD,00,D4,60,38,20 

,F0,FF,BA,48,98,48,18,A0,06, 2179 <175> 

1045 DATA A2,18,20,F0,FF,A0,B4,A9,0A,20,FF 

,Bl,20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,1D,A9,14,20,D2,FF,CA,D0,FA,68 

,A8,68,AA,18,4C,F0,FF,0D,0D, 2704 <088> 

1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,48,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,0D,20,20,20,20, 1023 <83B> 

1049 DATA 20,20,20,20,56,4F,4E,20,4E,2E,4D 

,41,4E,4E,20,26,20,44,2E,57, 1128 :^206> 


1050 DATA 45,49,4E,45,43,4B,00,0D,0D,0D,20 

,20,20,50,52,4F,47,52,41,4D, 1102 <117> 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D,0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,05,20,50,52,4F,47, 1171 <217> 

1054 DATA 52,41,4D,4D,20,3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,40,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D, 105B <098> 

1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A 

,2A,00,13,05,20,20,12,44,92, 920 <148> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12,54 

,92,41,50,45,0D,00,13,20,20, 1151 <035> 

1058 DATA 49,2F,4F,20,2D,20,46,45,48,4C,45 

,52,00,20,D1,B1,20,48,B2,A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,B1,20,BE,B4,85,FC 

,20,8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0,0C,85,F9,20,A7,B4,F0 

,05,85,F8,4C,EF,B0,68,68,20, 2749 <088> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0 

,09,20,D1,B1,20,48,B2,4C,0B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4 

,20,EA,B1,20,0D,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,E1,FF,F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <198> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF,B1,20,E4,FF,C9,0D,D0,F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC,20,E0,B2,40,64,Bl,A5,FC,20,4E 

,B1,A5,FB,85,FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,B1 

,B1,FB,20,4E,B1,C8,C0,08,90, 2566 <070> 

1069 DATA F3,20,ED,Bl,24,5E,30,03,A9,12,2C 

,A9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DP 1 "'’ FF,20,4E,B1,A9,92,20,D2,FF,4C,EA 

,B1,A9,FF,85,B8,85,B9,A9,04, 3073 <029> 

1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4,A9,80,85,5E,20,4E,B5,20,48,B2 

,A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA,20,EA,Bl,20,EA,B1,20,60,B5,4C 

,CI,B4,20,B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9,61,20,D8,FF,B0,0A,20,B7,FF,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3,FF,20,68,B6,A0,B4,A9,4F,20,FF 

,Bl,20,F9,Bl,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54,D0,F1,A9,01,AB,20,BA,FF,A0,00 

,E0,01,F0,1A,A9,40,BD,20,02, 2403 <101> 

1078 DATA A9,3A,8D,21,02,B9,01,02,99,22,02 

,C8,CC,00,02,90,F4,C8,CB,D0, 2182 <127> 

1079 DATA 0C,B9,01,02,99,20,02,C8,CC,00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,B8,B5,A5,BA,09,08,90,33,A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A,4A,B0,13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5 

,86,5F,84,60,A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD,3D,03,85,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60, 1230 <214> 

6 64'er 


MSE (Schluß). Dieses Listing können Sie (müssen aber 
nicht) mit dem neuen Checksummer 64 V3 in diesem Heft 
Gingeben. 
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Basic-Erweiteru ngen 


Komfortable 

Befehls- 

erweiterung 

»Basic-Expansion« ist ein universelles 
Programm, das den Befehlssatz des C 
64 um 42 neue Kommandos erweitert, 
die das Arbeiten mit Floppy und Grafik 
enorm vereinfachen. 

Das Besondere an dieser Erweiterung ist zudem, daß sie 
sich »unter« dem Basic-ROM befindet. Trotz der Länge von 
6625 Byte des Maschinenprogramms werden nur 260 Byte 
des freien Basic-RAM benötigt. 

Nachdem das Programm (siehe Listing) mit »SYS 40700« 
gestartet wurde, erscheint nach kurzer Zeit die Einschaltmel¬ 
dung von »Basic-Expansion«. 42 neue Befehle (siehe Tabelle) 
können von nun an ganz normal verwendet werden. 

Hier die neuen Befehle im Überblick: 

Bei der Beschreibung gelten folgende Symbole: 

ga: Geräteadresse 

Ifn: logische Fiienummer 

fa: Farbe (1 bis 16, 1=schwarz, 2=weiß, 3=rot, etc.); der 
Farbcode entspricht genau der Anordnung auf der Tastatur 
(CRTL 1 = schwarz, CRTL 2 = weiß etc.) 

PLOT x,y,fa: Punkt mit den Koordinaten (x,y) und der Farbe fa 
setzen (nur im Grafikmodus) 

LINE a, b, x, y, fa: Linie von Punkt (a,b) bis Punkt (x,y) in der Far¬ 
be fa zeichnen 

SETARC Startwinkel, Endwinkel, Schrittweite, Mittelpunkt 
x, Mittelpunkt y, Radius in x-Richtung, Radius in y- 
Richtung, Farbe fa: Diese Routine zeichnet einen Kreisbogen 
(im Bogenmaß) um einen Mittelpunkt. 

Beispiel: »SETARC 0,2*3.14,0.1,200,100,100,3« zeichnet ei¬ 
nen vollen Kreis um den Mittelpunkt (100,100) mit dem Radius 
100 in roter Farbe. 

Diese Zeichenroutine kann jedoch nicht nur Punkte setzen, 
sondern auch wieder löschen. Dazu setzt man fa einfach auf 
Null. 

Beispielsweise löscht »PLOT 100,100,0« den Punkt (100,100), 
weil der Farbcode gleich Null ist. Das gilt auch für LINE und SE¬ 
TARC. 

GRAPHICS schaltet die hochauflösende Grafik ein (320x200 
Punkte). 

NORM ist der Gegenbefehl zu GRAPHICS und schaltet wieder 
zurück in den Textmodus. 

GCLEAR löscht eine hochauflösende Grafik. 

GCOL r, h setzt die Farbe r als Rahmenfarbe und h als Hinter¬ 
grundfarbe für die hochauflösende Grafik. 

GSAVE " PRG-NAME *, ga speichert die hochauflösende Gra¬ 
fik auf Kassette oder Diskette 

GLOAD "PRG-NAME", ga lädt eine hochauflösende Grafik 
von Diskette oder Kassette. GSAVE und GLOAD speichern, 
beziehungsweise laden auch den Farbspeicher der hochauflö¬ 
senden Grafik. 

COLOUR r, h arbeitet im Textmodus und setzt die Farben für 
Rahmen (r) und Hintergrund (h). 

HBLOCK I, fa zeichnet im Textmodus einen horizontalen Bal¬ 
ken der Länge I in der Farbe fa ab der aktuellen Cursorposition 
und setzt den Cursor eine Zeile tiefer. L darf nur Werte zwi¬ 
schen 0 und 319 annehmen. 


VBLOCKI, fa arbeitet wie HBLOCK, nur in vertikaler Richtung. 
Zugelassen sind Werte zwischen 0 und 199. 

CURSCOL fa ändert die Cursorfarbe, das heißt man kann so 
die Schrittfarbe wählen. 

SCROLL r, uz, oz scrollt den Bildschirm zwischen den Zeilen 
uz und oz in der Richtung, die der Parameter r angibt. Dabei be¬ 
deutet: 0 nach rechts; 1 nach oben; 2 nach links und 3 nach 
unten, uz ist die untere und oz die obere Zeile, die beide im Be¬ 
reich zwischen 0 und 24 liegen. 

DOKE a, b bedeutet ein »Doppelbyte-POKE«, das heißt, a und 
b sind 2-Byte-Zahlen. In die Speicherstelle a wird das Low- 
Byte von b gePOKEt, entsprechend wird der Speicherstelle 
a+1 das High-Byte von b zugewiesen. 

SIZE gibt die Speicherplatzbelegung aus: gesamter Basic- 
Speicher, Programm, Variablen, Arrays, Strings, freier Basic- 
Speicher. 

RESTORE n setzt den DATA-Zeiger auf die Zeile n oder auf die 
nächste darauffolgende Zeile, n muß dabei eine Zeilennummer 
sein. Der normale RESTORE-Befehl funktioniert natürlich auch 
noch. 

ON...RESTORE a, b, c, d.. läuft ähnlich ab wie ON..GOTO. Je 
nach dem Ergebnis des Ausdrucks nach dem ON-Befehl wird 
der DATA-Zeiger auf die Zeile a, b, c,.. positioniert. 

MERGE "PRG-NAME", ga hängt ein Basic-Programm von 
Diskette oder Kassette mit Geräteadresse ga an ein im Spei¬ 
cher befindliches Basic-Programm an und sortiert die Basic- 
Zeilen nach ihren Zeilennummem. 

GEN "String" arbeitet nur im Programm-Modus. Dieser Be¬ 
fehl erzeugt eine neue Basic-Zeile in einem Basic-Programm. 
Der String muß am Anfang eine Zeilennummer unddanach den 
Basic-Text enthalten. Zum Beispiel erzeugt der Befehl GEN 
"10 DATA 1,2,3" die Basic-Zeile »10 DATA 1,2,3« im Pro¬ 
gramm. N ac h der Erzeugung fährt das Programm mit der auf 
den GEN-Befehl folgenden Basic-Zeile fort. Der Computer 
springt nach dem GEN-Befehl immer in die nächste Zeile, so 
daß Basic-Befehle in derselben Zeile nach dem GEN-Befehl 
i nicht ausgeführt werden. Zu beachten ist aber, daß alle Varia¬ 
blenwerte gelöscht werden und daß der String nur 80 Zeichen 
umfassen darf. Und noch ein Hinweis: Enthält der String nur 
eine Zeilennummer, so wird die entsprechende Basic-Zeile 
gelöscht. In keinem Falle sollte der GEN-Befehl in einem Un¬ 
terprogramm verwendet werden, da er den Basic-Stack mani¬ 
puliert. 

DUMP listet alle verwendeten Variablen tabellarisch auf. Ledig¬ 
lich die Arrays werden dabei nicht berücksichtigt. 

ARRAY gibt sämtliche Arrays mit Werten aus. Die Ausgabe 
kann durch einmaligen Druck der SHIFTTaste angehalten wer¬ 
den. Dann wartet das Programm so lange, bis die Commodore- 
Taste gedrückt wird. Dies gewährleistet, daß der Benutzer alle 
Arraywerte genauestens ablesen kann. 

RENUM z, s numeriert ein Basic-Programm neu. RENUM än¬ 
dert neben den Zeilennummern die Adressen bei GOTO, GO- 
SUB, THEN, RESTORE, RUN sowie bei sämtlichen ON..GOTO, 
ON..GOSUB oder ON..RESTORE-Ausdrücken. Z gibt die erste 
neue Zeilennummer, s die Schrittweite an. RENUM berück¬ 
sichtigt ebenfalls, ob möglicherweise zu große Zeilennum¬ 
mern erreicht werden. Bevor die Zeilennummern verändert 
werden, wird geprüft, ob die zu erzeugenden Zeilennummem 
auch im Bereich 0 bis 64000 liegen, andernfalls wird eine 
Fehlermeldung ausgegeben. Die Schrittweite 0 wird auch 
nicht akzeptiert. RENUM kann im Programm-Modus verwen¬ 
det werden. Dabei werden alle Variablenwerte gelöscht. Wie 
beim GEN-Befehl springt der Computer nach dem RENUM- 
Befehl automatisch in die nächste Basic-Zeile. Der RENUM- 
Befehl kann zwei Fehlermeldungen ausgeben: »US-ERROR IN 
xx« bedeutet, daß im Programm eine Sprungadresse nicht vor¬ 
handen war. »US« steht für »UNDEFINED STATEMENT«. Der 
RENUM-Befehl unterbricht jetzt aber nicht einfach, sondern er 
ersetzt die nicht-definierte Sprungadresse durch die Adresse 


10 



Basic-Erweiteru ngen 


derjenigen Basic-Zeile, die als nächste auf die nicht-definierte 
folgen würde. Die zweite Fehlermeldung lautet: »SN-ERROR 
IN xx«, welche anzeigt, daß bei einer Sprungadresse eine zu 
große Zahl angegeben wurde Hier verfährt der Befehl so, daß 
statt der fehlerhaften Adresse die Adresse der ersten Basic- 
Zeile im Programm eingesetzt wird. Dadurch wird verhindert, 
daß ein Programm durch die falsche Adresse möglicherweise 
abstürzt. Die Zeilennummern xx in den Fehlermeldungen gibt 
natürlich die neue Adresse der Zeile an, in der ein Fehler auf¬ 
trat. 

OLD ist der Gegenbefehl zu NEW. So können durch NEW oder 
Reset gelöschte Programme wieder »zurückgeholt« werden. 
CURSOR s, z (," Drucktext ") ist der Positionierbefehl für den 
Cursor. S gibt die Spalte (0 bis 39) und z die Zeile (0 bis 24) 
der gewünschten Position an. Es existieren zwei CURSOR- 
Varianten: 

CURSOR s, z setzt nur den Cursor. 

CURSOR s, z , "String" dagegen positioniert den Cursor auf 
die Position (s,z) und druckt an diese Stelle den Text »String«. 
Wird also hinter der Zeilenangabe noch ein Komma gesetzt, so 
wird praktisch wie beim PRINT-Befehl fortgefahren. 

Die nächsten Befehle beziehen sich nur auf das 
1541-Floppy-Laufwerk. gn ist hierbei die Geräteadresse der 
Diskettenstation. 

DIRgn listet das Directory der Diskette auf dem Bildschirm, oh¬ 
ne ein im Speicher befindliches Programm zu löschen. Der Be¬ 
nutzer kann während des Auflistens mit der gedrückten SHIFT- 
Taste das Listen so lange verzögern, bis die SHIFTTaste wie¬ 
der entriegelt wird. Die Commodore-Taste unterbricht das Auf¬ 
listen des Inhaltsverzeichnisses ebenfalls, nur wird damit das 
Listen einfach abgeschlossen und der Computer verarbeitet 
den nächsten Befehl. 

RECORD #,lfn,rn(,bp) ist der Positionierbefehl für relative Da¬ 
teien. Ifn bezeichnet die Filenummer des geöffneten relativen 
Files, rn stellt die Recordnummer (1-65535) und bp eventuell 
die Position innerhalb dieses Records (1-254) dar. Ohne An¬ 
gabe von bp wird immer der Wert 1 angenommen. 

DISC "Befehl", gn übermittelt dem 1541-Laufwerk DOS- 
Befehle wie zum Beispiel 
DISC "10", gn 

Hier wird die Diskette in der Floppy-Station mit der Geräte¬ 
adresse gn initialisiert. Mit DISC können alle DOS-Befehle, die 
an den Befehlskanal gehen, übertragen werden. Die Befehle 
müssen aber innerhalb der Anführungsstriche stehen. 
DISCGET# Ifn,Variables (.Länge I) ist ein erweiterter 
INPUT #-Befehl. Ifn bezeichnet die logische Filenummer; da¬ 
nach muß eine Stringvariable angegeben werden. Diese Rou¬ 
tine liest nun bis zum nächsten RETURN-Code Zeichen ein 
und speichert sie unter der Stringvariablen ab. Dabei können 
bis zu 255 Zeichen eingelesen werden. Wird zusätzlich noch 
eine Länge I mit angegeben, so liest der Befehl genau I Zei¬ 
chen ein, so daß die Stringlänge der Variablen vorbestimmt 
wird. Dies erweist sich beispielsweise beim Einlesen von Re¬ 
cords aus relativen Dateien als sehr nützlich, denn hier kann 
der Parameter I die Länge des Records darstellen. 
PROTECT "File-Name", gn schützt ein File auf der Diskette 
gegen den SCRÄTCH-Befehl. Files, die so geschützt sind, 
werden im Directory gesondert gekennzeichnet. Mit dem 
SCRÄTCH-Befehl können diese Files nicht mehr gelöscht 
werden. 

FREE "File-Name", gn ist der Gegenbefehl zum PROTECT- 
Befehl. Hiermit werden geschützte Files auf der Diskette wie¬ 
der freigegeben und können nun mit SCRATCH gelöscht wer¬ 
den. Für PROTECT und FREE gibt es auch die Möglichkeit, 
den Namen des Files mit dem Jokerzeichen " * " abzukürzen. 
DOSTYPE "Stringzeichen ", gn verändert das DOS-Flag der 
Floppy-Station. Das Zeichen »A« kennzeichnet das DOS der 
VC 1541. Wird jetzt DOSTYPE "B", gn eingegeben, so hat 
der Benutzer das DOS-Flag verändert. Dies aber bedeutet, 


daß man nichts mehr auf die Diskette schreiben kann. Bei je¬ 
dem Schreibbefehl wird geprüft, ob auch das »richtige« DOS- 
Flag vorhanden ist (DOS»A«)! Trifft dies nicht zu, so kann eine 
Diskette nicht mehr beschrieben werden. Durch »DOSTYPE 
"A",gn« erzeugt man wieder das richtige DOS-Flag, so daß 
die Diskette wieder beschrieben werden kann. Insofern be¬ 
deutet der DOSTYPE-Befehl eine Art Schreibschutz der Dis¬ 
kette. Anzumerken ist noch, daß die Routine immer nur das er¬ 
ste Zeichen im Stringausdruck berücksichtigt. 

Dieser Befehl dient demjenigen, der mit dieser Basic- 
Erweiterung noch nicht zufrieden ist, als zusätzlicher Erweite¬ 
rungsbefehl. Der @-Befehl bewirkt normalerweise nichts. Der 
Zeiger in der Sprungtabelle der Basic-Befehle ist auf ein RE¬ 
TURN (RTS) positioniert. Der Benutzer kann nun ein Maschi¬ 
nenprogramm mit dem Klammeraffen aufrufen. Dazu muß er 
die Werte in der Sprungtabelle für den @-Befehl ändern. Der 
Sprungvektor liegt in den Speicherstellen 40221 und 40222 
(dezimal). Normalerweise steht dort der Vektor 40804, weil in 
der Speicherstelle 40805 ein RTS-Code enthalten ist. Der 
Sprungvektor kann vom Benutzer verändert werden (durch die 
POKE- oder DOKE-Befehle), indem der Vektor auf die Ein¬ 
sprungadresse gesetzt wird. Wenn ein Programmierer bei¬ 
spielsweise einen neuen Befehl als Maschinenprogramm ab 
Adresse 828 (Kassettenpuffer) angelegt hat, so POKEt er das 
Low-Byte von (828—1) in 40221 ein und speichert das High- 
Byte von (828—1) in 40222 ab. Nun kann die neue Routine 
mit @ angesprochen werden. Durch Zuweisung des ur¬ 
sprünglichen Wertes von (40805—1) in die Speicherstellen 
der Sprungtabelle wird der neue Befehl wieder aufgehoben. 
Soweit die neuen Befehle. Nun kommen wir zu den neuen 
Funktionen der Erweiterung: 

RAM (xx) gibt den Inhalt der RAM-Speicherstelle xx an und äh¬ 
nelt danip ;h sehr der PEEK-Funktion. Doch die RAM- 
Funktion liest die Werte immer aus dem RAM aus. Zusätzlich 
wird im Bereich $D000 bis $DFFF (hexadezimal) der Charak¬ 
tergenerator ausgelesen, so daß die Werte für die Zeichen aus 
dem Charakter-ROM aufgelistet werden können. 

CVAL ("String") ähnelt der VAL-Funktion, kann jedoch auch 
Rechnungen auswerten. So ergibt »CVAL("5’6+3")« als 
Beispiel den Wert 33, wogegen »VAL("5*6+3")« gleich 5 
ist. CVAL verarbeitet alle Funktionen, jedoch darf der String 
nicht länger als 80 Zeichen sein. 

ROUND(x,y) rundet eine Zahl x auf y Nachkommastellen. So¬ 
mit kann man eine Fließkommazahl auf eine ganze Zahl run¬ 
den, wenn y=0 ist. 

&(xxxx) wandelt die dezimale Zahl xxxx (oder einen numeri¬ 
schen Integer-Ausdruck) in den entsprechenden hexadezima¬ 
len String, welcher zwei oder vier Zeichen umfaßt, je nachdem 
ob der Wert xxxx kleiner oder größer als 256 ist. Der Ausdruck 
xxxx muß eine positive Zwei-Byte-Zahl darstellen. Beispiel: 
»PRINT &(15)« ergibt »OF«. 

!("yyyy ") ist das Gegenstück zur &-Funktion. Sie wandelt ei¬ 
nen hexadezimalen String in die entsprechende dezimale, po¬ 
sitive Zwei-Byte-Zahl. Der String muß zwei oder viör Zeichen 
umfassen, je nachdem ob der Hex-Wert kleiner oder größer als 
"FF" ist. 

TEST(x,y) fragt ab, ob in der hochauflösenden Grafik der Punkt 
mit den Koordinaten (x,y) gesetzt ist. Trifft dies zu, so erhält 
man das Ergebnis -1, sonst ergibt sich der Wert 0. 

INSTR(1. String, 2. String) oder INSTR(1. String, 2. String, a) 
untersucht, ob der zweite String im ersten String enthalten ist 
und gibt die Position an, ab der der zweite String gefunden 
wird. Ist der zweite String nicht im ersten String enthalten, so 
wird eine Null ausgedruckt. Der Parameter a, der zusätzlich mit 
angegeben werden kann, gibt die Position im ersten String an, 
ab der getestet werden soll, ob der zweite String ein Teil des 
ersten ist. Wird a nicht mit angegeben, so wird er automatisch 
auf 1. gesetzt, das heißt es wird ab der ersten Position im er¬ 
sten String untersucht. 
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DS$(ga) liest den Fehlerkanal der Floppy-Station aus, wobei ga 
die Geräteadresse angibt. 

DS(ga) ermittelt nur die Nummer der Fehlermeldung der 
Floppy-Station mit der Geräteadresse ga. 

HE ADBYT (" Fi le-Name'', ga, n) bezieht sich auf das n-te Byte 
im Eintrag eines Files im Inhaltsverzeichnis. Die Geräte¬ 
adresse ist ga. Der String »File-Name« stellt den Namen des 
Files dar. Jeder Eintrag eines Files enthält 30 Byte mit wichtig¬ 
sten Informationen über Länge des Files, File-Typ etc. Diese 
Bytes können nun einzeln mit der HEADBYT-Funktion ausge¬ 
lesen werden. Beispielsweise stellt Byte 0 im Eintrag eines Fi¬ 
les den File-Typ dar. Mit der HEADBYT-Funktion kann der Be¬ 
nutzer den File-Typ auslesen, wobei n=0 sein muß. Bei einer 
relativen Datei befindet sich im 21. Byte des Eintrags die Re¬ 
cordlänge, so daß mit HE ADBYT die Recordlänge schnell fest¬ 
gestellt werden kann (bei n=21). Zu beachten ist, daß der Pa¬ 
rameter n nur im Bereich 0 bis 29 liegen darf. Welche Bedeu¬ 
tung nun die einzelnen Bytes im Eintrag eines Files haben, läßt 
sich anhand des Bedienungshandbuches für die 1541 fest¬ 
stellen. Wichtig ist auch noch, daß bei der Angabe des File- 
Namens mit dem Jokerzeichen »*« gearbeitet werden kann. 
DEEK(xxxx) stellt ein Doppelbyte-PEEK dar. DEEK (xxxx) ist 
die Gegenfunktion zu DOKE. Es werden die Inhalte der Spei¬ 
cherstellen xxxx und xxxx+1 als positive Zwei-Byte-Zahl dar¬ 
gestellt. xxxx muß die Adresse des Low-Bytes markieren; das 
Ergebnis ist eine Zahl zwischen 0 und 65535. Die DEEK- 
Funktion liest immer aus dem RAM aus. In den Bereichen des 
Basic-lnterpreter-ROMs und dem Betriebssystem-ROMs wird 
ebenfalls immer das RAM ausgelesen. Das ROM kann nur mit 
PEEK ausgelesen werden. DEEK unterscheidet sich von der 
RAM-Funktion nur im Bereich $D000 bis SDFFF. Hier hat 
DEEK keinen Zugriff auf den Charaktergenerator. 

Soweit sind nun alle neuen Befehle und Funktionen be¬ 
schrieben worden. Eines sollte man jedoch unbedingt beach¬ 
ten: Bei der Benutzung des THEN-Befehls muß darauf geach¬ 
tet werden, daß nach dem THEN ein Doppelpunkt»:«folgt, um 
danach die neuen Basic-Befehle benutzen zu können. Wird 
der Doppelpunkt weggelassen, so gibt der Computer »SYN¬ 
TAX ERROR« aus, wenn nach THEN ein neuer Basic-Befehl 
verwendet wird. 

Hinweise zur Eingabe: 

Geben Sie das Programm mit dem MSE ein (siehe Seite 8). 
Geladen wird es dann mit »LOAD".. ",8,1«. Danach geben Sie 
bitte NEW ein. Der Start erfolgt mit »SYS 40700«. 


Sollte während der Benutzung der Erweiterung ein RESET 
ausgelöst werden, so erscheint wieder das gewohnte Bild des 
Basic V2, was jedoch nicht heißt, daß die Basic-Erweiterung 
gelöscht worden ist. Die Erweiterung ist nicht gegen RESETs 
des Computers geschützt. Um das zu erreichen, hätte der ge¬ 
samte Bereich von hexadezimal $8000 bis $A000 vor Über¬ 
schreiben geschützt werden müssen, was aber einem Basic- 
Speicherverlust von 8 KByte gleichkäme. Doch eben dieser 
Speicherverlust sollte vermieden werden. Dem Benutzer soll¬ 
te noch möglichst viel Speicherplatz für Basic-Programme und 
Daten zur Verfügung stehen. Doch wenn der Benutzer nach 
einem RESET sofort »SYS 40700« eingibt, so ist die Basic- 
Erweiterung wieder aktiviert, wenn nicht schwerwiegende 
Programmfehler einen Teil der Erweiterung verändert haben. 

(Bernd Stuke/ev) 


PLOT 

DOSTYPE 

LINE 

DIR 

SETARC 

RECORD# 

GRAPHICS 

DISCGET# 

NORM 

DISC 

GCLEAR 

PROTECT 

GCOL 

FREE 

COLOUR 

CURSOR 

GLOAD 

@ (KLAMMERAFFE) 

GSAVE 

RAM 

HBLOCK 

CVAL 

VBLOCK 

ROUND 

CURSCOL 

! (AUSRUFEZEICHEN) 

SCROLL 

& (UND-ZEICHEN) 

DOKE 

TEST 

SIZE 

INSTR 

MERGE 

DS$ 

GEN 

DS 

DUMP 

HEADBYT 

ARRAY 

OEEK 

RENUM 

RESTORE 

OLD 

ON RESTORE 

Tabelle 1. Liste aller neuen Befehle und Funktionen 


Programm s basic-ex/mse B500 9f0c 


8500 

z 

a9 

f c 

a0 

9e 

B5 

Sa 

84 

5b 

17 

8508 

I 

a9 

dd 

30 

b8 

85 

58 

84 

59 

bf 

8510 

: 

20 

bf 

«3 

4c 

fc 

9e 

00 

e9 

lb 

851B 

: 

00 

f 6 

54 

78 

a 2 

ff 

9a 

dB 

fe 

8520 

: 

20 

•3 

fd 

20 

SB 

fd 

20 

15 

35 

8528 

: 

fd 

20 

5b 

ff 

58 

a2 

fc 

a 0 

de 

8530 

s 

9b 

20 

2d 

fa 

a9 

00 

8d 

20 

lb 

8538 

: 

d0 

8d 

21 

d0 

a9 

05 

Bd 

86 

37 

85*10 

: 

02 

20 

53 

s4 

20 

bf 

a3 

a2 

99 

8548 

: 

07 

bd 

9c 

9f 

?d 

04 

03 

ca 

e4 

8550 

: 

10 

f 7 

a9 

73 

85 

22 

a9 

e4 

0e 

8558 

: 

85 

23 

a 2 

28 

20 

25 

ab 

a9 

4a 

8560 

t 

a4 

85 

22 

a9 

9f 

B5 

23 

a2 

7d 

8568 

: 

lc 

20 

25 

ab 

a9 

98 

30 

e4 

ff 

B570 

• 

20 

2d 

e4 

4c 

9d 

e3 

20 

8a 

78 

8578 

: 

9-f 

20 

26 

a 2 

08 

48 

a9 

37 

dd 

8580 

: 

85 

01 

68 

28 

60 

20 

Ba 

9f 

15 

8588 

: 

4c 

eS 

al 

20 

Ba 

9f 

20 

55 

04 

8590 

8 

a 2 

20 

5d 

9f 

4c 

ae 

a7 

20 

a7 

859B 

3 

Ba 

9-f 

20 

ld 

al 

4c 

5d 

9f 

cf 

85a0 


Be 

f 6 

07 

8c 

f 7 

07 

20 

96 

62 

S5a8 

: 

9f 

08 

48 

a9 

36 

dB 

dl 

Be 

el 

85b0 

8 

f 6 

07 

Bc 

f 7 

07 

20 

5d 

9f 

72 

85b8 

3 

6c 

f 6 

07 

78 

9f 

66 

9f 

6c 

f 5 

85c 0 

3 

9f 

57 

9f 

20 

20 

20 

20 

20 

bb 


B5cB 

: 

20 

20 

20 

45 

5B. 

50 

41 

4e 

53 

85d0 

: 

44 

45 

4« 

20 

42 

39 

70 

42 

C0 

85dB 

- 

2e 

20 

33 

54 

SS 

4b 

45 

20 

7b 

85e0 

: 

5d 

94 

be 

80 

a0 

4c 

8a 

9f 

a 2 

B5e8 

: 

20 

5d 

9f 

20 

a 2 

bb 

4c 

8a 

fl 

B5f 0 

s 

9f 

20 

5d 

9f 

20 

04 

bb 

4c 

lb 

85f 8 

3 

Ba 

9f 

20 

5d 

9f 

20 

67 

bB 

10 

8600 

3 

4c 

Ba 

9f 

20 

5d 

9f 

20 

28 

21 

8608 

: 

ba 

4c 

8a 

9f 

20 

5d 

9f 

b9 

5e 

8610 

: 

9d 

a 0 

4c 

8a 

9f 

20 

5d 

9f 

11 

B61B 

z 

b9 

9e 

30 

4c 

8a 

9f 

31 

55 

e7 

8620 

: 

33 

34 

35 

50 

4c 

4f 

d4 

4c 

f0 

8628 

: 

49 

4e 

c5 

53 

43 

54 

41 

52 

15 

8630 

: 

c3 

47 

52 

41 

50 

48 

49 

43 

47 

8638 

: 

d3 

4e 

4f 

52 

cd 

47 

43 

4c 

0d 

8640 

3 

45 

41 

d2 

47 

43 

4f 

CC 

43 

2 c 

8648 

: 

4f 

4c 

4f 

55 

d2 

47 

4c 

4f 

73 

8650 

: 

41 

c4 

47 

53 

41 

56 

c5 

48 

9e 

B65B 

: 

42 

4c 

4f 

43 

cb 

56 

42 

4c 

0 e 

8660 

3 

4f 

43 

cb 

43 

55 

52 

53 

43 

68 

8668 

3 

4f 

cc 

53 

43 

52 

4f 

4c 

cc 

c5 

8670 

: 

44 

44 

4b 

c5 

53 

49 

5a 

C5 

5c 

8678 

3 

4d 

45 

52 

47 

c5 

47 

45 

ce 

2f 

8680 

: 

44 

55 

4d 

dB 

41 

52 

52 

41 

4f 

B688 

3 

d9 

52 

45 

4a 

55 

cd 

4f 

4c 

3f 

8690 

3 

c4 

44 

4f 

53 

54 

59 

50 

c5 

91 

B698 

3 

44 

49 

d2 

52 

45 

43 

4f 

52 

dB 

86a0 

3 

44 

a3 

44 

49 

53 

43 

47 

45 

b7 


B6aB 

: 

54 

a3 

44 

49 

53 

c3 

50 

52 

41 

86b0 

: 

4f 

54 

45 

43 

d4 

46 

52 

45 

36 

86bB 

: 

c5 

43 

55 

52 

53 

4f 

d2 

C0 

3b 

86c 0 

: 

52 

41 

cd 

43 

56 

41 

cc 
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00 
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05 
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Bf 

88 

84 

fd 

98 

6 a 
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a5 

5d 
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ac 
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66 
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a2 
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aa 

fe 
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02 

dB 

03 

fe 

05 

4e 

9df B 
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15 

a6 

24 

0a 

0a 

0a 

0a 

0a 

dB 
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a0 

bc 

20 
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a2 
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C6 
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3 

02 
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05 

02 

dl 

8 d 

dB 

06 

79 

9b00 

3 

85 

23 

aS 

14 
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4a 

4a 

4a 

97 

9aBB 


b5 

61 

48 

ca 

10 

#a 

20 

43 

39 

9c4B 

3 

c8 

b9 

05 

02 

dl 

Bd 

90 

14 

62 

9e08 

3 

18 

65 

23 

65 

d3 

48 

aB 

c5 

f 6 
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i 

a6 

Ba 

f0 

bf 

Be 
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b# 

a2 

6 e 
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3 

a9 

00 

a4 

fd 

99 

05 

02 

99 

df 
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3 

d3 

f0 

17 

c9 

27 

90 

02 

a0 

9b 

9a9B 

: 

00 

68 

95 

61 

eB 

e0 

05 

dB 

a9 

9c5B 

3 

06 

02 

BB 

10 

d7 

a5 

cl 

a6 

82 

9el8 

3 

27 

a9 

a0 

85 

22 

20 

24 

ea 

76 

9aa0 

: 

f 8 

f0 

07 

a2 

e2 

a0 

ba 

20 

B5 
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3 

c2 

4c 

el 

b5 

20 

c2 

b6 

a4 

b4 
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22 

20 

le 

ea 

BB 
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50 
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: 
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9# 

ce 

f0 

bf 

10 

#4 

a2 

60 

9c6B 

8 

Bf 

a9 

28 

20 

d2 

ff 

b9 

04 

f 6 

9e28 

3 

10 

ef 

68 

a8 

68 

C0 

28 

b0 

ee 
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: 

49 

a0 

bö 

20 

81 

9# 

a2 

cc 

b5 

9c70 

: 

02 

be 

05 

02 

B4 

fd 

20 

07 

la 

9e30 

3 

10 

29 

0/ 

aa 

bd 

2 a 

b8 

a6 

49 

9abB 

s 

a0 

bc 

20 

81 

9f 

4c 

aB 

b4 

57 

9c7B 

3 

b4 

a9 

2 c 

a4 

fd 

8 B 

88 

10 

07 

9e38 

3 

24 

4B 

20 

24 

ea 

68 

20 

le 

bc 

9ac0 

: 

a2 

#B 

a0 

ba 

20 

81 

9# 

ce 

8 b 

9c B0 

3 

ea 

a9 

29 

20 

6 a 

b7 

a5 

cl 

0c 

9e40 

: 

ea 

•9 

11 

4c 

16 

e7 

4c 

0 b 

b5 

9ac8 

: 

fl 

bf 

10 

f 4 

68 

85 

66 

4c 

20 

9c88 

3 

a6 

c2 

85 

22 

86 

23 

a0 

00 

39 

9e4B 

3 

a3 

20 

65 

74 

75 

61 

f 6 

ea 

f 7 

9ad0 

s 

09 

ab 

20 

02 

ab 

20 

12 

bl 

5f 

9c90 

3 

bl 

Bb 

10 

07 

20 

71 

b7 

a9 

ac 

9e50 

3 

e7 

20 

47 

a6 

a5 

15 

d0 

ee 

12 

9adB 

: 

20 

09 

ab 

a9 

02 

a6 

15 

f0 

28 

9c9B 

3 

02 

dB 

11 

cB 

bl 

8 b 

30 

07 

a6 

9e58 

3 

ca 

B6 

24 

a5 

14 

c9 

cB 

b0 

37 

9ae0 

: 

01 

0a 

20 

6 c 

ad 

a0 

00 

aS 

a7 

9c a0 

3 

20 

Bb 

b7 

a9 

05 

dB 

0 S 

20 

d4 

9e60 

3 

e5 

4a 

4a 

4a 

85 

23 

a5 

14 

76 

9aeB 

: 

15 

f0 

03 

20 

d/ 

b4 

aS 

14 

lc 

9caB 

3 

al 

b7 

a9 

03 

18 

6S 

cl 

85 

ae 

9e6B 

3 

29 

07 

85 

25 

a5 

dl 

18 

65 

2 f 
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85 
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9c 

86 

cl 

B4 

0 d 
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29 

7f 

20 

d2 

ff 

c8 

bl 
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9ea8 

3 

a5 

fd 

85 
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a5 

fe 

29 

03 

29 

9b30 


c2 

68 

aB 

68 

20 

bl 

bl 

f0 

96 
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8 b 

a8 

29 
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f0 

03 

20 

d2 

57 

9eb0 

: 

09 

d8 

85 
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a6 

25 

bd 

ac 

09 

9b3B 
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d5 

85 

9b 

86 
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10 

05 
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25 

4c 
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7c 
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3 

b8 

91 

fd 

a5 

24 
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a5 

57 
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Listing 

»Basic-Expansion« (Schluß) 


Disk-Basic — 
programmie¬ 
ren Sie Ihre 
eigene Daten¬ 
verwaltung! 

Disk-Basic ergänzt das magere Basic 
V 2.0 um einige Befehle zum komforta¬ 
blen Programmieren von sequentiel¬ 
len und relativen Dateien. 


Disk-Basic ist entstanden, um beispielsweise eine leistungs¬ 
fähige Dateiverwaltung mit einfachen Befehlen zu programmie¬ 
ren. Das ist natürlich nur eines der denkbaren Anwendungsge¬ 
biete von Disk-Basic, denn sein umfangreicher Befehlsvorrat 
erleichtert generell das Arbeiten mit dem 1541-Floppy- 
Laufwerk. Disk-Basic hat das Ziel, nicht mehr mit spektakulären 
Kommandokombinationen die Laufwerke zum Arbeiten zu ani¬ 
mieren, sondern mit Klartextbefehlen. Damit trägt es dem Prin¬ 
zip einer Hochsprache wie Basic, komfortabel Daten zu verar¬ 
beiten, Rechnung. 

Nach dem fehlerfreien Eingeben (verwenden Sie bitte den 
MSE) und Abspeichern des Programms (siehe Listing) kann 
Disk-Basic mit SYS 49152 gestartet werden. Die Befehlssyn¬ 
tax aller neuen Befehle richtet sich nach der altbewährten Me¬ 
thode: Sonderzeichenerkennung — Befehlsidentifizierung — 
Ausführung. Bevor nun die Wirkung der einzelnen Befehle er¬ 
läutert wird, noch einige andere allgemeine Hinweise. 

— Da, zumindest in Deutschland, das englische Pfund- 
Zeichen relativ wenig verwendet wird, wurde es als Einlei¬ 
tungszeichen für die neuen Befehle gewählt. 

— Beim Start oder bei der Initialisierung werden zwei Komman¬ 
dokanäle geöffnet: 

OPEN 15,8,15 und OPEN 16,9,15 

Es ist dabei ohne Belang, ob die Floppy-Laufwerke einge- 
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Basic-Erweiterungen 


schaltet sind oder nicht. Da der Befehl RUN alle Kanäle 
schließt, muß am Programmanfang immer mit INIT initialisiert 
werden. Der Grund für diese Forderung ist, daß während des 
Arbeitens mit relativen Dateien an den Zuständen der Kanäle 
nichts verändert werden darf. 

— Um auch bei den Sekundäradressen Ordnung zu schaffen, 
wird beim öffnen einer Datei die Sekundäradresse gleich der 
Kanalnummer gesetzt (zum Beispiel OPEN 2,8,2). Aus diesem 
Grund darf die Kanalnummer nur zwischen 2 und 14 liegen. 

— Das zweite Floppy-Laufwerk (nicht unbedingt notwendig) 
sollte die Geräteadresse 9 haben. Ist es bereits fest auf eine 
höhere Nummer eingestellt, muß das Programm geringfügig 
verändert werden. Ansonsten steht zur Veränderung der Gerä¬ 
teadresse ein gesonderter Befehl zur Verfügung. 

Die 38 Befehle des Disk-Basic unterteilen sich in zwei Grup¬ 
pen: 

Die eigentlichen DOS-Befehle und allerlei Hilfsbefehle, zum 
Beispiel zur Aufbereitung von Datensätzen. 

Folgendes zur Erklärung: 

Steht »dr« in Klammern, so bedeutet das, daß die Geräte- 
Nummer weggelassen werden kann. Dabei wird angenom¬ 
men, daß es sich um Gerät 8, das Floppy-Laufwerk handelt. 

bedeutet, daß weitere Parameterkombinationen ange¬ 
hängt werden können. 

Befehle für die Laufwerksbedienung 

ECATALOG (."Parameter") (,dr) 

Ausgabe des Directorys. Als Parameter sind Standardjoker 
(siehe 1541-Handbuch Seite 11) einsetzbar. 

ECOLLECT (,dr) 

»Aufräumen« führt eine Disk-Garbage-Collection durch (ent¬ 
spricht dem Validate. 

£COPY,”neufile=altfile,...” (,dr) 

Kopieren von Files t;4ER onu 

ECLALL 

schließt alle Kanäle und öffnet die Kommandokanäle sofort 
wieder 

£OPEN,fn,"filename,x,y" 
öffnet Kanal fn. ' 
x = s sequential 

p program 

u user 

y = w write 

r read 

a append 

m Lesen einer nicht gechlossenen Datei 
fn muß zwischen 2 und 14 liegen 
£ ERROR,dr.ds (,ds$) (,tr) (,se) 
dr muß angegeben werden. Fehlerkanal wird gelesen 
£FORMAT,"diskname,id" (,dr) 
formatieren einer Disk 
£RENAME,”neuname=altname” (,dr) 
umbenennen von Dateien 
£SCRATCH,”filename,...” (,dr) 
löschen von Dateien 
£CHANGE,neue nr, alte nr 

Die Gerätenummer des »alten« Floppy-Laufwerks wird umge¬ 
ändert. 

EINIT (,dr) 

Das betreffende Laufwerk wird initialisiert 
ECHAIN,"Programmname” (,dr) 

Aneinanderhängen von Programmen mit Variablenschutz; 
darf nur bei fertig entwickelten Programmen verwendet wer¬ 
den, da das Programm im Speicher nach Ende oder Abbruch 
nicht mehr ordnungsgemäß zu listen und zu starten ist. 
EStiSTEM,’'Programmname" (,dr) 
die Erweiterung wird gespeichert 
£ FETCH,fn,az,er$,... 


vom File fn werden az Zeichen in er$ eingelesen 
ETRANS, Sendedatei-Nr., Empfangsdatei-Nr. 
beide Dateien müssen geöffnet sein. Die Daten können zwi¬ 
schen allen Peripheriegeräten ausgetauscht werden. 

£ RANDOM,fn,"Name",le,az (,dr) 

fn = Kanalnummer 

le = Länge eines Records 

az = die Anzahl der freigemachten Records (record az wird mit 
CHR$(255) beschrieben) 

ECLEAR 

löscht den Datenpuffer für relative Dateien 
£PUT,fn,rn,az (,dr) 

schreibt az Byte des Puffers in den Record rn 
EGET,fn,rn,az (,dr) 

liest az Byte des Records rn in den Puffer 
£WRITE,pos,x$,az,... 

schreibt az Zeichen des Strings x$ ab pos (Position) in den 
Puffer. 

Ist der String zu kurz, wird mit CHR$(0) aufgefüllt. 
£READ,Pos,az,x$... liest ab Pos (Position) az: Zeichen des Puf¬ 
fers in x$ 

Andere Befehle: 

£COMP,a,a$,... 

wandelt die Zahl a (integer oder real) in den äquivalenten 
String. Real 5 Zeichen, Integer 2 Zeichen. 

£RECOMRa$,a,... 

Umkehrung von COMP 
EBEEP 

Ausgabe eines Signaltones 
£CSET,x,y 

C'jr°orpositionierung 
x = Zeile, y = Spalte 
£CREAD,x,y 
Cursorabfrage 

gibt aktuelle Cursorposition aus (x = Zeile, y = Spalte) 
ERESTORE, Ausdruck 

Positioniert den Lesezeiger für Daten auf Zeile »Ausdruck« 
£INSTR$,a$,b$,Pos,erg,... 

durchsucht a$ ab Pos nach b$. Ist erg = 0, dann nicht vorhan¬ 
den 

£ STORE,adresse,”XXYYXXYYXXYY..." ... 
speichert Hexbytes ab Adresse (ideal für Sprites) 
£STR$,"XXYYXXYYXXYY”a$... 

wandelt Hexbytes in ASCII-Zeichen und speichert sie in a$ 

£STRING,a Zeichen,er$ ... 

erzeugt einen a Zeichen langen String aus 

£COLOUR,f1,f2 

verändert die Bildschirmfarben 

EGOTO, Ausdruck 

GOTO wird »berechenbar« 

£HEX,z,h$... 

wandelt z in h$ (hexadezmalzahl) um 
£DEZ,h$,z... 

wandelt h$ (hexadezimal) in z (dezimal) um 
ELINPUT,a$ 

Übernimmt eine ganze Zeile mit allen Zeichen 
£SYS,adresse,akku,xreg,yreg... 

SYS mit Parameterübergabe der 6510-Register 

akku = Akkumulator 

xveg = X-Register 

yveg = y-Register 

EQUIT 

verlassen des Interpreters 

(Harald Großauer/aw) 
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Basic-Erweiteru ngen 


Programm : disk-basic cOOO cBc4 
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ff 
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53 
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4b 

2d 
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41 

53 
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43 

20 

7f 

C020 

: 

20 

28 

43 

29 

20 

42 

59 

20 

04 

C02B 

: 

47 

52 

4f 

53 

53 

41 

55 

45 
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c030 

: 

52 

20 

48 

41 

52 

52 

59 

20 

2a 

c038 

8 

20 

38 

35 

20 

Od 

00 

•9 

6e 

la 

c040 

8 

aO 

cO 

Bd 

08 

03 

Bc 

09 

03 

63 

C048 

8 

a9 

00 

48 

20 

bd 

ff 

a9 

Of 

aB 

CO50 

8 

a 2 

08 

a8 

20 

ba 

ff 

20 

cO 
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4c 

f 9 

cl 

20 

09 

c2 

a5 

2b 

49 

c700 


a6 

2c 

20 

17 

a6 

38 

a5 

5f 

29 

c708 


e9 

01 

a4 

60 

bO 

01 

88 

85 

e7 

c710 


41 

84 

42 

4c 

f 9 

cl 

20 

cc 

75 

c71B 

3 

ff 

aO 

00 

20 

cf 

ff 

c9 

Od 

aa 

c720 


fO 

06 

99 

cB 

c9 

c8 

dO 

f 3 

al 

c728 

3 

84 

ab 

20 

7e 

c2 

b9 

C8 

c9 

Oa 

c730 


91 

62 

c8 

c4 

61 

dO 

f 6 

4c 

ce 

C738 


f 9 

cl 

a 2 

00 

86 

14 

86 

15 

08 

c740 

3 

20 

09 

c 2 

20 

a3 

aB 

4c 

f 9 

3e 

c748 

8 

cl 

a9 

04 

a 2 

a7 

Bd 

08 

03 

78 

c750 


Be 

09 

03 

4c 

86 

e3 

20 

78 

a6 

c758 

3 

c2 

86 

ab 

20 

df 

cl 

aO 

00 

db 

c760 

3 

bl 

22 

48 

20 

7e 

c2 

68 

91 

fb 

c768 

3 

62 

c8 

c4 

61 

dO 

f 9 

20 

1B 

19 

C770 


c3 

bO 

e3 

4c 

f 9 

cl 

38 

20 

de 

C77B 

3 

fO 

ff 

86 

fd 

a9 

00 

4B 

20 

c5 

c780 

3 

b7 

c2 

68 

a4 

fd 

20 

b7 

C2 

8c 

C7B8 


4c 

f 9 

cl 

20 

df 

cl 

84 

aa 

b9 

C790 

3 

aO 

00 

bl 

22 

99 

cB 

c9 

c8 

7a 

c798 

3 

c4 

aa 

dO 

f 6 

20 

df 

cl 

a5 

18 

c7aO 

8 

22 

a6 

23 

85 

fb 

86 

fc 

84 

80 

c7aB 

8 

ab 

20 

78 

c 2 

86 

fd 

aO 

00 

b5 

c7bO 

3 

bd 

c8 

c9 

dl 

fb 

fO 

07 

e8 

b3 

c7bB 

3 

e4 

aa 

dO 

f 4 

fO 

18 

B6 

a7 

fd 

c7c0 

: 

aO 

00 

bd 

CB 

c9 

dl 

fb 

dO 

aS 

c7cB 

8 

08 

eB 

C8 

c4 

ab 

fO 

Ob 

dO 

lf 

c7d0 

3 

fl 

e8 

aO 

00 

fO 

da 

aO 

ff 

c6 

c7d8 

3 

B4 

a7 

a4 

a7 

cS 

a9 

00 

20 

68 

c7eO 

8 

b7 

c 2 

20 

18 

c3 

bO 

03 

4c 

6a 

C7e8 

8 

f 9 

cl 

4c 

Bb 

c7 

20 

09 

c 2 

6d 

c7f 0 

3 

20 

df 

cl 

84 

aa 

aO 

00 

a2 

f 6 

c7f8 

3 

00 

20 

da 

c 2 

9d 

cB 

c9 

e8 

30 

cBOO 

8 

c8 

c4 

aa 

dO 

f 4 

86 

fd 

aO 

ac 

C808 

8 

00 

b9 

cB 

c9 

91 

fb 

c8 

C4 

f 6 

cBlO 

8 

fd 

dO 

f 6 

20 

18 

c3 

bO 

d5 

45 

cBia 

8 

4c 

f 9 

cl 

20 

df 

cl 

aO 

00 

64 

CB20 

8 

20 

da 

c2 

48 

cB 

20 

da 

c2 

e5 

CB28 

8 

a8 

68 

20 

b7 

c2 

20 

18 

c3 

18 

C830 

8 

bO 

e9 

4c 

f 9 

cl 

20 

df 

cl 

47 

C038 

3 

B4 

aa 

aO 

00 

a 2 

00 

20 

da 

9a 

c840 

3 

c 2 

9d 

c8 

c9 

eB 

cS 

c4 

aa 

79 

cB48 

8 

dO 

f 4 

86 

ab 

20 

7e 

c 2 

aO 

ec 

c850 

3 

00 

b9 

c8 

c9 

91 

62 

c8 

c4 

71 

c85B 

3 

61 

dO 

f 6 

20 

1B 

c3 

bO 

dS 

fl 

cB60 

3 

4c 

f 9 

cl 

20 

09 

c 2 

aO 

00 

46 

c86B 

8 

a5 

fc 

20 

fa 

C2 

cB 

a5 

fb 

f 4 

cB70 

3 

20 

fa 

c2 

aO 

04 

84 

ab 

20 

25 

cB78 

8 

7e 

c 2 

aO 

00 

b9 

c8 

c9 

91 

ac 

cBBO 

: 

62 

c8 

c4 

61 

dO 

f 6 

20 

18 

19 

cBBB 

8 

c3 

bO 

dB 

4c 

f 9 

cl 

20 

78 

82 

C890 

3 

c2 

8e 

20 

dO 

20 

78 

c2 

8e 

a9 

cB98 


21 

dO 

4c 

f 9 

cl 

20 

09 

c 2 

3a 

cSaO 


20 

78 

c2 

86 

ab 

20 

78 

c2 

al 

cBaB 

8 

86 

fd 

20 

78 

c2 

86 

aa 

a9 

a2 

c8b0 

3 

4c 

85 

a7 

a5 

ab 

a6 

fd 

a4 

8e 

cBb8 

3 

aa 

20 

a7 

00 

20 

18 

c3 

bO 

Bf 

cBcO 

3 

de 

4c 

f 9 

cl 

00 

00 

ff 

09 

8b 


Listing »Disk-Basic«. Bitte beachten Sie die Eingabehinweise auf Seite 8. 
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Basic-Erweiterungen 


Record-Befehl 
für den C 64 

Dieses Programm erleichtet Ihnen den 
Umgang mit relativen Files. 

Bei relativen Files kann auf jeden Satz des Files direkt zuge¬ 
griffen werden, ohne die vorherigen Sätze lesen zu müssen. 
Außerdem kann ein eröffnetes File nach Belieben beschrieben 
und gelesen werden, es ist also zum Beispiel möglich, Satz 12 
zu beschreiben, auch wenn bereits höhere Sätze existieren. 
Ein relatives File wird durch folgenden OPEN-Befehl einge¬ 
richtet: 

OPEN lfn,ga,sa,"filename,l,”+chr$(sl). Dabei bedeutet: 

Ifn = logische Filenummer, 
ga = Geräteadresse (normalerweise 8) 
sa = Sekundäradresse (mindestens 2, höchstens 14) 
sl = maximale Satzlänge des relativen Files (minde¬ 
stens 1, höchstens 254). Diese Angabe ist entscheidend für 
den späteren Diskettenplatzverbrauch des Files, da auch Sät¬ 
ze, die nicht mit voller Satzlänge beschrieben werden, den ge¬ 
samten durch sl reservierten Platz verbrauchen. Ist ein relati¬ 
ves File erst einmal eingerichtet, so kann die Satzlänge nicht 
mehr verändert werden. Es genügt dann der folgende OPEN- 
Befehl: 

OPEN lfn,ga,sa,"filename” 

Selbstverständlich muß ein relatives File auch mit CLOSE Ifn 
geschlossen werden. Auf die einzelnen Sätze eines relativen 
Files wird normal mit PRINT#Ifn, INPUT#Ifn oder GET#lfn 
zugegriffen, allerdings muß vor jedem Zugriff auf den ge¬ 
wünschten Satz positioniert werden. Dies übernimmt die vor¬ 
liegende Basic-Erweiterung. 

Durch RECORD # lfn,sn,(,p) wird auf den Satz mit der Num¬ 
mer sn positioniert, wird zusätzlich noch p angegeben, so wird 
innerhalb des Satzes das p-te Zeichen angewählt. Der neue 
Befehl muß von TH EN durch einen Doppelpunkt abgetrennt 
werden. Es können folgende Basic-Fehlermeldungen auftre- 
ten: 

7SYNTAX ERROR: Schreibfehler im Befehl oder die Erweite¬ 
rung war nicht eingeschaltet. 

7ILLEGAL QUANTITY ERROR: Ein Argument lag außerhalb 
des erlaubten Bereichs. 

?FILE NOT OPEN ERROR: Das File mit der logischen Filenum¬ 
mer Ifn war nicht eröffnet. 

7ILLEGAL DEVICE NUMBER ERROR: Dem File mit der Num¬ 
mer Ifn ist ein Gerät mit einer Adresse kleiner als 8 oder größer 
als 15 zugeordnet. 

Es können außerdem folgende Floppy-Fehlermeldungen auf- 
treten (Sie müssen durch den Fehlerkanal ausgelesen wer¬ 
den): 





Bild 2. Symbol-Tabelle 

0073 

chrget 

ffbl 

listen 

c036 

12 

0079 

chrgot 

ff93 

seclis 

c041 

tabl 

007a 

chrvek 

ffa8 

iecout 

c047 

tab2 

0308 

decod 

ffae 

unlist 

c04b 

record 

a437 

error 

0014 

integ 

c05a 

13 

a7ae 

schleife 

00b8 

filenr 

c067 

simon 

ad8a 

getrec 

00b9 

secadr 

c06c 

13s 

aefd 

chkcom 

OOba 

ga 

c079 

out 

b79e 

getbyt 

c019 

endoff 

c082 

ok 

b7f1 

comget 

cOla 

vekt 

c091 

14 

b7f7 

facl 6 

cOlc 

flag 

c09f 

illdev 

f30f 

search 

cOld 

on 

c0a4 

15 

f31f 

parset 

c 02 c 

11 

cOda 

ende 


20 FOR 1=49152 TO 49375:READ A:POKE I,A:S= 

S+A:NEXT I <193> 

30 IF S<>25982 THEN PRINT"PRUEFSUMMENFEHLE 

R":STOP <103> 

40 SYS 49152:NEW <225> 

100 DATA 76,29,192,173,28,192,240,17,173,2 

6,192,141,8,3,173,27,192,141,9,3 <071> 

101 DATA 169,0,141,28,192,96,228,167,0,169 

,255,141,28,192,173,8,3,201,75,240 <131> 

102 DATA 3,141,26,192,173,9,3,201,192,240, 

3,141,27,192,169,75,141,8,3,169 <045> 

103 DATA 192,141,9,3,96,35,68,176,67,69,82 

,35,68,176,8,165,122,72,165,123 <022> 

104 DATA 72,32,115,0,201,100,240,15,160,6, 

217,64,192,208,26,32,115,0,136,208 <102> 

105 DATA 245,240,27,32,115,0,160,4,217,70, 

192,208,8,32,115,0,136,208,245,240 <246> 

106 DATA 9,104,133,123,104,133,122,108,26, 

192,104,104,32,158,183,32,15,243 <096> 

107 DATA 240,5,162,3,76,55,164,32,31,243,1 

65,185,41,15,72,165,186,201,16,144 <130> 

108 DATA 5,162,9,76,55,164,201,8,144,247,3 

2,177,255,169,111,133,185,32,147 <244> 

109 DATA 255,169,80,32,168,255,32,253,174, 

32,138,173,32,247,183,104,32,168 <230> 

110 DATA 255,165,20,32,168,255,165,21,32,1 

68,255,32,121,0,240,7,32,241,183 <238> 

111 DATA 138,32,168,255,32,174,255,76,174, 

167 <152> 


Listing 1. Basic-Lader »Record-Befehle«. 

Bitte beachten Sie die Eingabehinweise auf Seite 6. 

50,RECORD NOT PRESENT: Der Satz, auf den positioniert 
wurde, existiert nicht. Diese Meldung kann ignoriert werden, 
wenn der Satz beschrieben werden soll, denn durch das Be¬ 
schreiben wird er eingerichtet. (Und alle nicht existierende 
Sätze mit kleinerer Nummer ebenfalls.) Aus Geschwindigkeits¬ 
gründen empfiehlt es sich, bei der Einrichtung eines Files den 
höo!~ ~ten Satz zuerst zu beschreiben. 

51,OVERFLOW IN RECORD: Die maximale Satziänge sl wurde 
beim Schreiben überschritten. Zu beachten ist, daß das Car- 
riage Return am Ende des Satzes mitzählt. 

52,FILE TOO LARGE: Die Diskette ist voll, der letzte Schreib¬ 
zugriff kann nicht durchgeführt werden. 

Aufbau des Programms 

Der Basic-Interpreter besitzt einen Zeiger (Adresse $0308, 
im Listing »decod« genannt), der auf die Routine zur Befehlsin¬ 
terpretation zeigt. Dieser Vektor wird nach dem Aufruf der Er¬ 
weiterung zuerst gemerkt und danach auf eine eigene Routine 
zur Befehlsinterpretation gesetzt. Vor dem Merken wird noch 
geprüft, ob der Vektor schon auf die eigene Routine zeigt. Da¬ 
mit wird verhindert, daß der Computer bei einem versehentli- 


.= 49152 


Bild 1. Befehlscodierung 

chrget 

= $73 

:holt nächstes Zeichen 

chrgot 

= $79 

;holt letzes Zeichen 

chrvek 

- $7a 

;Chrgetzeiger 

decod 

= $0308 

;Vektor für Befehlsdec. 

error 

= $a437 

; Fehlermeldung ausgeben 

schleife 

= $a7ae 

;lnterpreterschleife 

getrec 

= $ad8a 

;Recordnummer holen 

chkcom 

= $aefd 

;prüft auf Komma 

getbyt 

= $b79e 

;holt Byte in x 

comget 

= $b7f1 

;chkcom + getbyt 

facl 6 

= $b7f7 

;FAC nach 16-Bit wandeln 

search 

= $f30f 

;sucht logische Filenr, 

parset 

= $f31f 

;setzt Fileparameter 

listen 

= $ffb1 

;LISTEN senden 

seclis 

= $ff93 

;Sekundärad. nach LISTEN 

iecout 

= $ffa8 

;Ausgabe auf iEC-bus 

unlist 

= $ffae 

;UNLISTEN senden 

integ 

= $14 

llnteger Wert 

filenr 

= $b8 

;logische Filenummer 

secadr 

= $b9 

;Sekundäradresse 

ga 

= $ba 

;Gerätenummer 
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Basic-Erweiterungen 


= 49152 ;Startadresse 


jmp on 


;zum Einbinden 


C000 4c Id c0 


;***#*#* Erweiterung abschalten ******* 


1 da flag 
beq endoff 
Ida vekt 
sta decod 
lda vekt +1 
sta decod+1 
lda «0 
sta flag 
endoff rts 
vekt .word *a7e4 

flag .byte *00 


:schon abgeschaltet? 

5 Vektor wieder her — 

;stellen 


;Flag luer Abge- 
;schaltet setzen 


;******* Erweiterung einschalten ****** 


;Flag fuer Einge¬ 
schaltet setzen 


lda #*ff 
sta flag 
lda decod 
cmp #<record 
beq 11 
sta vekt 

11 lda decod *1 
cmp #>record 
beq 12 

sta vekt+1 

12 lda #<record 
sta decod 
lda #>record 
sta decod+1 


rts 

;****** Interpreterdarstellung von **** 
; ****** RECORD# **** 

tabl -byte *23,*44,*b0,*43,*45,*52 

tab2 -byte *23,*44,*b0,*08 

5 ****** Test auf RECORD# **** 

record 


c003 
c 006 
C00Q 
c00b 
c00e 
C011 
C014 
C016 

C019 

c 01 a 

c 01 c 


C01 d 

C01f 

C022 

C025 

C027 

C029 

C02c 

C02f 

C031 

C033 

C036 

C038 

c03b 

c03d 


ad lc c0 
f0 11 
ad la c 0 
8d 08 03 
ad lb c 0 
8d 09 03 
a9 00 
8d lc c0 
60 

e4 a7 
00 


a9 ff 
8d lc c 0 
ad 08 03 
c9 4b 
f0 03 
8d la c0 

ad 09 03 
c9 C0 
f0 03 
8d lb c0 
a9 4b 
8d 08 03 
a9 c0 
8d 09 03 


C040 60 


13s 


14 


15 


C041 

C047 


23 44 b0 
23 44 b0 


43 45 52 
08 


lda 

chrvek 

;Chrgetzeiger 

C04b 

a5 7a 

pha 


;retten 

c04d 

48 

lda 

chrvek +1 


c04e 

a5 7b 

pha 



c050 

48 

jsr 

chrget 


C051 

20 73 00 

cmp 

4**64 

;Simon's Basic 

c054 

c9 64 

beq 

si man 

;TOKEN 

C056 

f0 0f 

ldy 

#6 


c058 

a0 06 

cmp 

tabl-l,y 


c05a 

d9 40 c0 

bne 

out 


c05d 

d 0 la 

jsr 

chrget 

Listing 2. 

c05f 

20 73 00 

dey 

bne 

13 

Source-Code von 

c062 

C063 

88 

d0 f 5 

beq 

ok 

»Record-Befehl« 

c065 

f0 lb 


cnuru 


i jsr 

chrget 


c067 

20 

73 

00 

ldy 

4*4 


c 06 a 

a0 

04 


cmp 

tab 2 — 1 ,v 

• 

c 06 c 

d9 

46 

C0 

bne 

out 


c06f 

d0 

08 


jsr 

chrget 


C071 

20 

73 

00 

dey 



C074 

88 



bne 

13s 


C075 

d0 

f5 


beq 

ok 


C077 

f0 

09 


** Weiter mit 

normalem Basic **#* 





pla 



C079 

68 



sta 

chrvek *1 

C07a 

85 

7b 


pla 



C07c 

68 



sta 

chrvek 


c07d 

85 

7a 


jmp 

(vekt) 


c07f 

6c 

la 

C0 

** eigentlicher RECORD#-Befehl *** 





pla 


;Zeiger von Stack 

C0B2 

68 



pla 



C083 

68 



jsr 

getbyt 

;holt Byte nach x 

C084 

20 

9e 

b7 

Jsr 

search 

;sucht log. Filenr. 

C087 

20 

0f 

f 3 

beq 

14 

;gefunden 

C08a 

f0 

05 


ldx 

#3 

ifile not open 

C08c 

a2 

03 


jmp 

error 

;ausgeben 

C08c? 

4c 

37 

a4 

jsr 

parset 

;Fileparameter setzen 

C091 

20 

lf 

f 3 

lda 

secadr 

;Sekundaeradresse 

c094 

a5 

b9 


and 

«*0f 


C096 

29 

0t 


pha 


; 83 Kanalnummer 

C098 

48 



lda 

ga 


C099 

a5 

ba 


cmp 

#16 


C09b 

c9 

10 


bcc 

15 

;ga < 16 

c09d 

90 

05 


v 1 dx 

♦*9 

;illegal device nr. 

C09f 

a2 

09 


jmp 

error 


c0a 1 

4c 

37 

a4 

cmp 

MS 


C0a4 

c9 

08 


bcc 

i 1 1 dev 

;ga < 8 

C0a6 

90 

f 7 


jsr 

1isten 


C0a8 

20 

bl 

ff 

lda 

#*6f 

:15 and *60 

c0ab 

a9 

6f 


sta 

secadr 


c 0 ad 

85 

b9 


jsr 

seclis 


c0af 

20 

93 

ff 

lda 

*'P 

;positionieren 

C0b2 

a9 

50 


jsr 

iecout 

;senden 

C0b4 

20 

a8 

ff 

jsr 

chkcom 


c0b7 

20 

fd 

ae 

jsr 

getrec 

;Recordnummer holen 

c 0 ba 

20 

8a 

ad 

jsr 

f ac 16 

;FAC nach 16-Bit 

c0bd 

20 

f 7 

b7 

pla 


;Kanalnummer 

c0c0 

68 



jsr 

iecout 


C0C 1 

20 

a8 

ff 

lda 

i nteg 

;Recordnr. Io 

C0c4 

a5 

14 


jsr 

iecout 


c 0 c 6 

20 

a8 

ff 

1 da 

integ +1 

;Recordnr. hi 

c0c9 

a5 

15 


jsr 

iecout 


c0cb 

20 

aS 

ff 

jsr 

chrgot 

;letztes Zeichen 

c0ce 

20 

79 

00 

beq 

ende 

;kein dritter Param.? 

C0d 1 

f0 

07 


jsr 

comget 

;Komma und Parameter 

C0d3 

20 

fl 

b7 

txa 



c0d6 

8a 



jsr 

iecout 

;Position in Record 

C0d7 

20 

a8 

ff 

jsr 

unlist 


c0da 

20 

ae 

ff 

jmp 

schleite 

;zur Interpreterschi. 

c 0 dd 

4c 

ae 

a7 


chen Doppelaufruf abstürzt. Die eigene Routine rettet zu¬ 
nächst den Zeiger, der auf das augenblickliche Zeichen im 
Basic-Text zeigt, und ruft dann die CHRGET-Routine (Befehls¬ 
codierung siehe Bild 1, Symboltabelle Bild 2) auf. Diese Routi¬ 
ne holt das nächste Zeichen aus dem Basic-Text. Sie überliest 
automatisch Leerzeichen. Wenn das Ende einer Zeile oder ein 
Doppelpunkt erreicht wird, so wird die Z-Flag des Prozessors 
gesetzt. Ein Problem ergibt sich dadurch, daß in »RECORD#« 
der Simons Basic-Befehl »REC« vorkommt. Er wird bei Ver¬ 
wendung von Simons Basic also in eine interne Darstellung 
beginnend mit $64 umgewandelt. Das Programm testet daher, 
ob $64 vorliegt und verzweigt bei positiver Antwort. In beiden 
Fällen wird nun getestet, ob der Befehl »RECORD # « vorliegt. 
Unter dem Namen tab 1 (beziehungsweise tab 2 für Simons 
Basic) steht (rückwärts) die interne Darstellung des Befehls 
»RECORD«. Dabei ist zu beachten, daß »OR« wiederum nicht 
im ASCII-Code abgelegt ist, sondern als Token. Wird nur eine 
Abweichung gefunden, so wird der gemerkte CHRGET-Zeiger 
zurückgeholt und zur normalen Interpreterroutine gesprun¬ 
gen, anderenfalls tritt eine eigene Routine in Funktion (sie be¬ 
ginnt beim Label OK). Sie holt die Satznummer und, wenn an¬ 
gegeben, die Position im Satz aus dem Basic-Text und sendet 
die Informationen an die Floppy über die Sekundäradresse 15 
(Kommandokanal). Die Floppy erwartet die Werte in folgender 
Form: »p« als Zeichen, das positioniert werden soll; die Sekun¬ 
däradresse, mit der das relative File eröffnet wurde; die Satz¬ 
nummer in der Reihenfolge niederwertiges — höherwertiges 
Byte und, falls angegeben, die Position im Satz. Es werden fol¬ 
gende Routinen des Interpreters und des Betriebssystems 
verwendet: 


getbyt : Holt einen beliebigen Ausdruck in das x- 
Register. 

search : Sucht nach der logischen Filenummer in x. 
parset : Holt logische Filenummer, Geräteadresse 
und Sekundäradresse in die Speicherzellen 
$b8,$ba und $b9 

listen : Teilt dem angesprochenen Gerät mit, daß es 
Daten empfangen soll. 

seclis : Sendet die Sekundäradresse zum angespro¬ 
chenen Gerät. 

iecout : Sendet den Wert im Akkumulator zum ange¬ 
sprochenen Gerät. 

chkcom : Prüft auf Komma im Basic-Text. 
getrec : Holt einen numerischen Ausdruck in den 
Fließkomma-Akkumulator, 
facl 6 : Wandelt den Wert im Fließkomma- 

Akkumulator in eine 16-Bit-Zahl und spei¬ 
chert sie in $14 und $15. 
comget : =chkcom + getbyte. 
unlist : Beendet die Übertragung an die Floppy. 

Das Programm wurde mit dem Assembler »ASSI« übersetzt, 
eine Übernahme auf andere Assembler dürfte nicht schwierig 
sein. Der Basic-Lader (Listing 1, Source-Code: Listing 2) legt 
das Programm ab der Adresse 49152 ($C000) ab, schaltet 
die Erweiterung ein und löscht sich dann selbst, er muß also 
vorher auf Diskette abgespeichert werden. Die Erweiterung 
wird durch SYS49152 ein- und durch SYS49155 ausgeschal¬ 
tet. STOP/RESTORE schaltet die Erweiterung nicht ab. 

(Bernward Bretthauer/rg) 
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Basic-Erweiterungen 


Auf poliertes 
Basic 

39 zusätzliche und leistungsfähige Be¬ 
fehle stellt dieses Programm dem Pro¬ 
grammierer zur Verfügung. 

Das Programm (siehe Listing) belegt nur 8 KByte des Basic- 
RAMs. Der Restbedarf an Arbeitsspeicher wurde mit den Be¬ 
reichen $C000 bis SCFFF und $E000 bis $FFFF abgedeckt. 

Der zusätzliche Interpreter arbeitet nach demselben Prinzip 
wie der Commodore-Interpreter, das heißt jeder Befehl belegt 
nur genau 1 Byte. Die Erweiterung ist so geschrieben, daß 
Verzögerungen der Befehlserkennung kaum auftreten. 

Das Programm wird mit SYS 64738 oder einem RESET- 
Schalter gestartet. 

Die Basic-Erweiterung kann noch durch eigene Befehle er¬ 
gänzt werden. Dazu hängt man die neuen Befehisnamen an 
das Ende der Tabelle, die bei $800A beginnt. Die Adresse der 
neuen Befehle wird an das Ende der Tabelle gehängt, die bei 
$8275 beginnt. Hierbei muß der Wert »Adresse — 1« angege¬ 
ben werden. Beispiel: Für eine Routine ab $9E00 muß die 
Adresse $9DFF (im Lo-Byte/Hi-Byte-Förmat) angegeben wer¬ 
den. Bei den Befehlen ist darauf zu achten, daß das letzte Zei- 

Die Befehle: 


HELP 

— Gibt alle neuen Befehle aus 

COLD 

— Bewirkt einen Kaltstart, der den C 64 in den 
Startzustand bringt 

HIRES X,Y 

— Schaltet HiFtes-Grafik ein, mit Vordergrund¬ 
farbe »X« und Zeichenfarbe »Y« (Grafik liegt 

REVIC 

— Bewirkt, daß der Videocontroller in den 


bei $E000) 


Startzustand gebracht wird 

TEXT 

— Schaltet die HIRes-Grafik ab, der Bild- 

DUMP 

— Gibt alle benutzten Variablen aus 


schirm bleibt dabei vorhanden 

DIRECTORY 

— Gibt das Directory aus, wobei Programme 

PLOT X,Y 

— Setzt den Punkt mit den Koordinaten (X.Y) 


im Speicher bleiben 

CPLOT X,Y 

— Löscht den Punkt mit den Koordinaten 

DERR 

— Gibt den Fehlerkanal der Floppy auf dem 


(XV) 


Bildschirm aus 

GRDI A,"NAME”,GN 

— Speichert beziehungsweise lädt ein Bild 

CURSET X.Y,'TEXT' — Setzt Cursor und Position (X.Y) und druckt 

Text 


auf (von-) : GN=8: DISK GN= 1:DATASETTE, 
wobei A=1 Abspeichern und A=0 Laden be- 

RENEW 

— Holt ein mit »NEW« gelöschtes Programm in 


deutet 


den Speicher zurück 

LINE X1,Y1,X2,Y2 

— Zeichnet eine Linie von (XI ,Y1) nach 

AUTLIN X 

— Beginnt automatische Zeilennumerierung 


(X2,Y2) 


nach der nächsten eingegebenen Zeilennum¬ 
mer mit der Schrittweite »X« 

REC X1,Y1,X2,Y2 

— Zeichnet ein Rechteck mit der linken obe¬ 
ren Ecke (X1.Y1) und der rechten unteren 

DELETE X-Y 

— Löscht die Zeilennummern von »X« bis »Y« 


Ecke (X2.Y2) 

DELETE-X 

— Löscht die Zeilennummern bis »X« 

BIT X 

— Bestimmt, ob beim folgenden Grafik- 

DELETE X- 

— Löscht die Zeilennummern von »X« bis Pro¬ 
grammende 


Kommando gezeichnet oder gelöscht wird; 

X=1 :2eichnen ; X=0 : Löschen 

SSTP 

— Bewirkt eine Einzelschrittbearbeitung des 
Programmes, wobei nach jedem Druck auf die 
SHIFTTaste ein Befehl ausgeführt wird 

BLOCK X1,Y1,X2,Y2 

— Zeichnet ein ausgefülltes Rechteck mit der 
linken oberen Ecke (X1.Y1) und der rechten 
unteren Ecke (X2,Y2) 

OFF 

— Schaltet sowohl die »SSTP«-als auch die 

GCL 

— Löscht die im Speicher befindliche Grafik 


»TRACE«-Anweisung ab 

INV 

— Invertiert die im Speicher befindliche Grafik 

HOLD ’X’ 

— Wartet, bis die Taste in '' gedrückt wird, 

TRI 

— Zeichnet ein Dreieck mit den Eckkoordina- 


wird als Taste ein'?' angegeben, so wird jede 
Taste akzeptiert 

E1,E2,E3,E4,E5,E6 

ten (E1,E2);(E3,E4);(E5,E6), zu beachten Ist. 
daß (E5.E6) immer die Ecke ist, die auf dem 

RENUM X,Y,Z 

— Numeriert das Programm von Zeile »X« bis 
Ende mit der Schrittweite »Z« neu und beginnt 
bei der Neunumerierung mit »Y« 


Bildschirm unten rechts gezeichnet wird, da 
es ansonsten zu Fehlfunktionen kommen 
kann (eine Linie wird nicht gezeichnet) 

FIND 'TEXT' 

— Sucht im Programm nach »TEXT« und gibt 

CIRCLE 

— Zeichnet einen Kreis mit den Mittelpunkt- 


gefundene Zeilen aus 

RX,RY,MX,MY 

koordinaten (MX.MY) und den X,Y Achsen- 

FIND GOTO 

— Sucht im Programm nach dem Befehl GO- 


Radien RX,RY 


TO und gibt ebenfalls gefundene Zeilen aus, 

ANGL 

— Zeichnet einen Winkel der Größe Wl, vom 


wobei zu beachten ist, daß, wenn man »neue« 
Befehle sucht, nicht die Bezeichnung des Be- 

MX,MY,DX,DY,WI 

Punkt (MX,MY) mit den entsprechenden X,Y 
Achsen-Radien DX.DY 


, fehls ausgegeben wird, sondern ein alter Be¬ 

fehl, was aber nicht weiter schlimm ist, da ja 
nur die Zeilennummer von Interesse ist und 

PMOB SN,X,Y 

— Setzt das Sprite mit der Nummer »SN« an 
den Punkt (X.Y) (’X’ darf Werte von 0 - 344 
enthalten) 


das Listing nicht beeinflußt wird 

SMOB 

— Setzt die Parameter für ein Sprite; 

TRACE X 

— Zeigt in der rechten oberen Ecke des Bild¬ 
schirms die aktuelle Zeilennummer an und 
wartet auf die SHIFT-Taste. Da sich diese aber 
nicht als einzelnen Tastendruck abfragen läßt, 
wird mit »X« die Geschwindigkeit angegeben 
von »0* sehr langsam bis »255« sehr schnell. 
Während des Ablaufs ist die STOP-Taste nicht 

SN,MC,EX,CO,PR 

»SN«=Sprite.Nummer. »MC«=1:Multlcolor; 
»MC«=0;Monochrom; (im Falle Multicolor 
müssen zwei weitere Parameter für die Far¬ 
ben angegeben werden) 

»EX«=0:Keine Expansion; »EX«=1:X- Expan¬ 
sion; »EX«=3:Y-Expansion; »CO«:Farbe; 
»PR«:Sprite- Hintergrund Priorität 


aktiv. Zum Abbruch erst die Commodore-Ta- 
ste, dann die STOP-Taste drücken. 

DMOB SN,BL 

— »BL« gibt den Block an, der dem Sprite 
Nummer »SN« zugeordnet wird 

INIT 

— Initialisiert das Disk-Laufwerk 

EMOB SN,A 

— Wenn »A«=0, dann ist das Sprite mit der 

COLLECT 

— Führt einen Validate auf der Diskette durch 


■ Nummer »SN« zu sehen, wenn »A«=1, dann 

SCRATCH "NAME” — Löscht auf Disk das mit »NAME« bezeich- 
nete Programm 


ist das Sprite mit der Nummer »SN« nicht zu 
sehen 

HRDCPY 

— Gibt auf dem Drucker eine Hardcopy aus 
(Drucker Adresse 4, auf fast allen Druckern 

SCR X,Y 

— Setzt Bildschirm-Rahmenfarbe »X«; Hinter¬ 
grundfarbe »Y« 


lauffähig) 

Tabelle Befehlsübersicht 









C 64 


Basic-Erweiteru ngen 


chen geSHIFTet angegeben wird (MSB-gesetzt), damit der 
Computer weiß, wo das Befehlswort endet. Alle Befehle lassen 
sich abkürzen, da sie in 1-Byte-Tokens umgesetzt werden. 


Hinweise: 

Wird während des Listens die SHIFTTaste gedrückt, so hält 
der Computer so lange damit an, wie diese gedrückt bleibt: 
wird jedoch die »Commodore-Taste« gedrückt, so wird sehr 
langsam gelistet (auch nur solange die Taste gedrückt bleibt). 

Wenn der C 64 sich längere Zeit (einige Sekunden) mit der 
Grafik beschäftigt (Abspeichern, Laden von Grafiken) sollte 
man ihn auf keinen Fall mit RUN/STOP-RESTORE abbrechen, 
da es sonst zum System-Absturz kommen kann (das Kernal- 
ROM ist während des Zeichnens, und der Basic-Interpreter 


Zusätzliche Befehle kann man risikolos von $9875 unmittel¬ 
bar nach dem JMP $984F-Befehl bis $9FFF (Basic-RAM- 
Ende) hinzufügen. (Markus Feldmann/rg) 


während des Abspeicherns und Einladens von Grafiken abge¬ 
schaltet)! 

Die Erweiterung ist darauf ausgelegt, auf ein EPROM ge¬ 
brannt zu werden. Dieses ist daher ein recht einfacher Vor¬ 
gang. Ist die Erweiterung nur als Programm vorhanden, läßt sie 
sich durch »POKE32776,0:COLD« abschalten. 

Wichtig: Sollen die neuen Basic-Befehle nach »IF...THEN« be¬ 
nutzt werden, so müssen sie mit einem Doppelpunkt vom 
»THEN« getrennt werden. (Beispiel: IF A=0 THEN:PLOT X,Y) 


Programm 

code 

free 


8000 

9901 

8218 

: 

c6 

10 

0f 

24 

0f 

30 

0b 

c9 

61 

8448 


88 

10 

f 7 

60 

00 

00 

00 

00 

e 2 











8220 

: 

ff 

f0 

07 

c9 

cc 

b0 

06 

4c 

95 

8450 


00 

00 

00 

00 

00 

00 

00 

00 

51 











8228 

: 

24 

a7 

4c 

f 3 

a6 

38 

e9 

cb 

ld 

8458 


00 

00 

00 

00 

00 

lb 

18 

dl 

35 

B000 : 

2c 

83 

00 

83 

c3 

c 2 

cd 

38 

58 

8230 

8 

aa 

84 

49 

a 0 

ff 

ca 

f0 

08 

ad 

8460 


00 

00 

cB 

00 

15 

79 

f0 

00 

73 

B008 s 

30 

0d 

43 

4f 

4c 

c4 

52 

45 

38 

8238 

: 

c8 

b9 

Oa 

80 

10 

fa 

30 

f 5 

f 5 

8468 


00 

00 

00 

00 

f 6 

f 6 

fl 

f 2 

3d 

8010 : 

56 

49 

c3 

44 

49 

52 

45 

43 

47 

8240 

: 

c8 

b7 

0 a 

80 

30 

05 

20 

47 

b2 

8470 


f 3 

f 4 

f0 

fi 

f 2 

f 3 

f 4 

f 5 

e6 

8018 : 

54 

4f 

52 

d9 

44 

45 

52 

d2 

41 

8248 


ab 

d0 

f5 

4c 

ef 

a6 

20 

73 

fe 

8478 


f 6 

f 7 

fc 

ff 

00 

a9 

24 

85 

92 

8020 : 

43 

55 

52 

53 

45 

d4 

52 

45 

de 

8250 

: 

00 

20 

57 

82 

4c 

ae 

a7 

c9 

f 3 

8480 


fb 

a9 

fb 

85 

bb 

a9 

00 

85 

13 

8028 : 

4e 

45 

d7 

41 

55 

54 

4c 

49 

f 3 

B258 

: 

cc 

90 

04 

c9 

ff 

90 

06 

20 

83 

8488 


bc 

a9 

01 

85 

b7 

a9 

08 

85 

fe 

8030 : 

ce 

44 

45 

4c 

45 

54 

c5 

53 

b0 

8260 


79 

00 

4c 

ed 

a7 

38 

e9 

cc 

28 

8490 


ba 

a9 

60 

85 

b9 

20 

d5 

f 3 

c3 

8038 : 

53 

54 

d0 

4f 

46 

c6 

44 

55 

2a 

8268 


0a 

aa 

bd 

76 

82 

48 

bd 

75 

52 

8498 


a5 

ba 

20 

b4 

ff 

a5 

b9 

20 

8d 

8040 : 

4d 

d0 

48 

4f 

4c 

c4 

52 

45 

b0 

8270 


82 

48 

4c 

73 

00 

el 

fc 

3f 

19 

84a0 


96 

ff 

a9 

00 

85 

90 

a0 

03 

06 

8048 s 

4e 

55 

cd 

46 

49 

4e 

c4 

54 

40 

8278 


84 

7c 

84 

e5 

84 

01 

85 

18 

af 

84a8 


84 

fb 

20 

a5 

ff 

85 

fc 

a4 

50 

8050 : 

52 

41 

43 

c5 

48 

52 

44 

43 

7b 

8280 


85 

56 

85 

ac 

85 

48 

B6 

6f 

bb 

84b 0 


90 

dB 

2f 

20 

a5 

ff 

a4 

90 

86 

8058 : 

50 

d9 

53 

43 

52 

41 

54 

43 

d9 

8288 

8 

86 

7a 

86 

3a 

87 

ef 

87 

a 1 

8e 

84bB 


dB 

28 

a4 

fb 

88 

do 

e9 

a6 

49 

8060 : 

c8 

49 

4e 

49 

d4 

43 

4f 

4c 

c7 

8290 

: 

8a 

9f 

8d 

35 

8d 

b7 

8d 

22 

05 

84c0 


fc 

20 

cd 

bd 

a9 

20 

20 

d2 

b9 

8068 : 

4c 

45 

43 

d4 

48 

45 

4c 

d0 

44 

8298 


Be 

3b 

8e 

4c 

8e 

80 

8e 

df 

d8 

84c8 


ff 

20 

a5 

ff 

a6 

90 

dB 

12 

97 

8070 : 

48 

47 

d2 

54 

45 

58 

d4 

50 

a6 

82a0 


8e 

f 2 

8e 

ef 

8e 

a9 

8f 

89 

dB 

84d0 


aa 

f0 

06 

20 

d2 

ff 

4c 

c9 

6a 

8078 : 

4c 

4 f 

d4 

43 

50 

4c 

4f 

d4 

58 

82aB 


90 

35 

92 

f5 

92 

06 

93 

70 

bf 

84d8 


84 

a9 

0d 

20 

d2 

ff 

a0 

02 

2 c 

8080 : 

47 

52 

44 

c9 

4c 

49 

4e 

c5 

0e 

82b0 


93 

f 4 

93 

0d 

94 

33 

94 

0a 

8d 

84e0 


d0 

c6 

20 

42 

f 6 

60 

a9 

08 

8d 

8088 : 

52 

45 

c3 

42 

49 

d4 

42 

4c 

93 

82b8 

z 

95 52 

96 

c9 

96 

Cd 

»5 

57 

84e8 


85 

ba 

20 

b4 

ff 

a9 

6f 

85 

7f 

8090 : 

4f 

43 

cb 

41 

4e 

47 

cc 

47 

7d 

82 c 0 

: 

97 

lf 

98 

90 

90 

90 

90 

90 

10 

84f 0 


b9 

20 

96 

ff 

20 

a5 

ff 

20 

ce 

8098 : 

43 

cc 

49 

4e 

d6 

54 

52 

c9 

4a 

82 c 8 


90 

90 

90 

90 

90 

90 

90" 

90 

c7 

84f 8 


d2 

ff 

c9 

0d 

dB 

f 6 

20 

ab 

7a 

80a0 : 

43 

49 

52 

43 

4c 

c5 

50 

4d 

54 

82d0 


90 

90 

90 

90 

90 

90 

90 

90 

cf 

8500 


ff 

60 

20 

9e 

b7 

8a 

48 

20 

3c 

S0a8 : 

4f 

c 2 

53 

4d 

4f 

c 2 

44 

4d 

Be 

82d8 


90 

90 

00 

00 

00 

00 

00 

00 

bl 

8508 


fd 

ae 

20 

9e 

b7 

68 

a8 

18 

ca 

80b0 : 

4f 

c2 

45 

4d 

4f 

c 2 

53 

43 

3a 

82e0 


00 

00 

00 

00 

00 

00 

00 

00 

el 

8510 


20 

f0 

ff 

20 

fd 

ae 

4c 

a4 

7c 

80b8 : 

d2 

00 

00 

00 

00 

00 

00 

00 

8b 

82e8 


00 

00 

00 

00 

00 

00 

00 

00 

e9 

8518 


aa 

a5 

2b 

a4 

2 c 

85 

22 

84 

75 

80 c 0 : 

00 

00 

00 

00 

00 

00 

00 

00 

cl, 

82f 0 

: 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

8520 


23 

a 0 

03 

cB 

bl 

22 

dB 

fb 

d5 

80c8 : 

00 

00 

00 

00 

00 

00 

00 

00 

c9 

82f 8 

: 

00 

00 

00 

00 

00 

00 

00 

00 

f 9 

8528 


cB 

98 

18 

65 

22 

aD 

00 

91 

39 

80d0 : 

00 

00 

00 

00 

00 

00 

00 

00 

dl 

8300 

: 

20 

bc 

f 6 

20 

el 

ff 

dB 

21 

e4 

8530 


2b 

a5 

23 

69 

00 

c8 

91 

2b 

07 

80dB : 

00 

00 

00 

00 

00 

00 

00 

00 

d9 

8308 


a9 

01 

Sd 

20 

dB 

8d 

21 

dB 

39 

8538 


88 
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03 

e6 

22 

dB 

02 

e6 

2d 
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00 

00 

00 

00 

00 

00 

00 

00 

el 

8310 

: 

20 

15 

fd 
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fd 

20 
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19 

8540 


23 

bl 

22 

d0 
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ca 

dB 
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af 
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00 

00 

00 

00 

00 

e9 

8318 

: 

e5 

a9 
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8d 
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d0 

Bd 

21 

06 
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22 

69 

02 

85 

2d 

a5 

23 
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00 
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00 

fl 
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: 

d0 

a9 

99 

20 

d2 

ff 
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10 

ae 
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85 
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4c 

63 

a6 

20 

9b 
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00 

00 

00 

00 

00 

00 

00 
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8328 
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4c 

72 
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8e 

16 

dB 

20 

6c 

8558 


9e 

b7 

8e 

ff 
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a9 

6a 

8d 

84 
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00 

00 

00 

00 

00 
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01 

8330 
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a3 
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15 
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4c 

a6 
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00 

00 

09 
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: 
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ff 
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81 
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a7 
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48 

c9 
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dB 
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6e 
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00 

11 
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dB 
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lc 
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00 

00 
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dB 
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PRINT USING 
mit der USR- 
Funktion 

Haben Sie sich auch schon über die 
unformatierte Zahlenausgabe Ihres 
C 64 geärgert? Dann nehmen Sie in 
Zukunft die folgende USR-Funktion, 
um für Ihren C 64 ein PRINT USING zu 
erhalten. 

Wie allgemein bekannt und vielfach bemängelt, bietet das 
Commodore-Basic keinen PRINT USING-Befehl. Doch gerade 
bei kommerziellen Problemen kann auf eine Druckaufberei¬ 
tung von Zahlen nicht verzichtet werden. Eine Rechnung, in 
der nicht einmal die Dezimalpunkte untereinander stehen, ist 
eben unübersichtlich und keine Reklame. Für die Druckaufbe¬ 
reitung gibt es verschiedene Lösungen. 

Die beste Lösung ist ein Maschinenprogramm. Interessierte 
Maschinenprogrammierer finden den Quellcode zu dieser 
Routine in Listing 1. Doch zunächst stellt sich die Frage, wie 
ein Maschinenprogramm für die Druckaufbereitung aufge¬ 
rufen werden soll. Offensichtlich ist die USR-Funktion am 
geeignetsten, da sie sowohl in einer PRINT- als auch in einer 
PRINT #- oder einer LET-Anweisung verwendet werden kann. 
Der Aufruf der Funktion erfolgt durch USR(X),L,NK. Dabei ist 
X die Zahl, die aufbereitet werden soll, L die Gesamtfeldlänge 
der aufbereiteten Zahl einschließlich Vorzeichen und Dezimal¬ 
komma und NK die Anzahl der darzustellenden Nachkomma¬ 
stellen. Die USR-Funktion wandelt zunächst die Zahl X in einen 
ASCII-String um und berechnet die Stringlänge und die Anzahl 
der Nachkommastellen. Wenn bei der Wandlung von X der In¬ 
terpreter die Exponentialform wählt, dann wird die Exponen- 
tialdarstellung zunächst in die Fließkommadarstellung umge¬ 
wandelt. Danach werden die Nachkommastellen aufbereitet. 
Fehlende Nachkommastellen werden durch angehängte Nul¬ 
len ergänzt. Müssen Nachkommastellen abgeschnitten wer¬ 
den, dannwird die Zahl gerundet, wenn die erste abgeschnit¬ 
tene Dezimalstelle größer oder gleich 5 ist. Wenn die Anzahl 
der gewünschten Nachkommastellen null ist, dann wird die 
Zahl als ganze Zahl (Integer) ohne Dezimalkomma aufbereitet. 
Wegen der kaufmännischen Anwendung wird der Dezimal¬ 
punkt durch ein Dezimalkomma ersetzt. Nach der Aufbereitung 
der Nachkommastellen wird durch Voranstellen von Leerzei¬ 
chen der String auf die erforderliche Länge gebracht. Ist der 
String nach der Aufbereitung der Nachkommastellen schon 
länger als gewünscht, dann wird er nicht mehr verändert, son¬ 
dern in voller Länge ausgegeben, um einen Datenverlust zu 
verhindern. 

Das hier vorgestellte Maschinenprogramm verwendet nur 
relative Sprünge — außer bei den Aufrufen der Betriebssy¬ 
stemroutinen. Daher kann sich jeder Anwender das Programm 
ohne Änderungen in den Speicherbereich laden, der ihm am 
geeignetsten erscheint. Als Stringpuffer wird der Bereich ab 
$100 benutzt. Das hat zur Folge, daß die GETSTR-Routine die¬ 
sen String nicht in den Stringbereich kopiert. Der Stringbe¬ 
reich wird also nicht unnötig belastet. Eine Wertzuweisung 
A$=USR(X),L,NK ist dadurch aber auch nicht möglich, da die 
nächste Stringfunktion den Bereich ab $100 wieder über¬ 


schreibt. Wenn druckaufbereitete Werte einer Variablen zu¬ 
gewiesen werden sollen, dann muß die Anweisung A$=" " 
+USR(X),L,NK oder A$=(USR(X),L,NK)+ " " lauten, da dann 
das Ergebnis der Stringverknüpfung in den Stringbereich ko¬ 
piert wird und der Variablen A$ dauerhaft zugewiesen ist. 

Vor dem ersten Aufruf der USR-Funktion muß jetzt noch in 
Adresse 785 (Low-Byte) und 786 (High-Byte) die Startadres¬ 
se der USR-Funktion hinterlegt werden. Listing 2 zeigt das 
Basic-Ladeprogramm für die USR-Funktion. Die Ladeadresse 
können Sie selbst bestimmen. Das Ladeprogramm setzt die 
Startadresse der USR-Funktion in den Speicherstellen 785 
und 786 entsprechend. Zur Verdeutlichung der Anwendung 
der USR-Funktion enthält das Ladeprogramm verschiedene 
Druckaufbereitungen der Zahl ir. Das Ergebnis des Beispiels 
ist in Bild 1 wiedergegeben. 

(Dr. Michael Irskens/ah) 
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Bild 1. Beispiele für verschiedene Druckaufbereitungen 
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lda «<string 9 startadreese otring laden in a/y 


2050 


emp M»30 ; vergleich au# zi##er 


2860 

ldy «>otring 


2060 


bco #o 26 9 zi##or 


2870 

Jmp getotr 


2070 


lda «null 


2080 fo9 0 

sec 


20B0 


bne fo27 


2890 

nbc nk 


2090 

#o26 

dex 


2900 

sta temp ;anzahl ueber#lueooiger nachkommastel 1 en 


2100 

#o27 

ota string,y 


2910 

txa 


2110 


dey 


2920 

scc 


2120 


bne #o25 


2930 



2130 


lda «punkt 


2940 

tax 


2140 


sta string +1 


2950 

! 


2150 


bne fol9 


2960 

; beim abschnei den von nachkommastel 1 en runden 


2160 


; 


2970 

1 


2170 


; dezimalpunkt durch komma ersetzen 


2980 

lda string,x 


2180 


; y-regioter: anzahl vorkommazeichen 


2990 fo90i 

emp «»35 


2190 


; 


3000 



2200 

fo30 

tya 


3010 

txa 


2210 


beq fo50 ;nachkommastel1en ergaenzen 


3020 

tay 1 Index letztes Zeichen 


2220 


lda nk 


3030 #o91 

dey 


2230 


bne #o45 ; nachkommastellen 


3040 

beq #o92 j string eine 1 voranstellen 


2240 


tya 


3050 

lda string,y 


2250 


tax 


3060 

emp «*30 9 vergl < " 0 " 


2260 

2270 


lda string+l,x 

bne #o901 9 keine nachkommastel 1 en, aber runden 

Ol 

32 

bcc #o91 
clc 


2280 

#o45 

lda «komma 9 '.' gefunden 


3090 

ade «1 ; Ziffer um eins erhoehen 


2290 


sta string,y ;durch eroetzen 


3100 

emp «»3a 9 uoborlau# abfragen 


2300 


bne #o71 


3110 

sta string,y ; veraendertos Zeichen speichern 


2310 

fo50 

cpy nk ;nachkommastellen ergaenzen 


3120 

bne fo85 9 kein uebertrag 


2320 


beq fol 00 


3130 

lda «null ; null laden 


2330 


lda «komma 


3140 

sta string,y 


2340 


ata string,x 


3150 

bne fo91 9 naechste Ziffer erhoehen 


2350 


inx 


3160 fo92 

txa 9 string um eine stelle verschieben fuer 

1“ 

2360 


bne #o79 


3170 

tay 


2370 

#o71 

sty temp ;anzahl nachkommastel 1 en errechnen 


3180 #o94 



2380 


sec 


3190 

ota string+ 1 ,y 


2390 


tXa 


3200 

dey 


2400 


sbc temp 


3210 

bne fo94 


2410 


oec 


3220 

lda «»31 j -1- laden 


2420 


sbc «1 9 I abzichen fuer dezimalpunkt 


3230 

sta otring +1 


2430 


emp nk 9 vergleichen mit sollanzahl 


3240 



2440 


beq fol 00 ;anzahl gleich 


3250 

bne <o85 


2450 


bcs #o90 9 anzahl > soll 





2460 


tay 9 anzahl < soll 


Listing 1. 

PRINT USING-Quellprogramm (Schluß) 



100 S=0:INPUT "STARTADRESSE";B <182> 

110 FQR I=B TD B+335 <000> 

120 READ A <160 > 

130 S—S+As POKE I,A <062> 

140 NEXT I <224> 

150 IF S<>36986 THEN PRINT "IRVSON,SPACE>F 
EHLER IN DEN DATAZEILEN<SPACE,RVOFF>": 

STOP <119> 

160 POKE 785,B-256*INT(B/256)sPOKE 786,B/2 

56 <040> 

170 PRINT “ ALLES OK. “ <036> 

199 REM TEBTBEISPIELE <050> 

200 FOR E=0 TO 9 <238> 

210 F=i*10tE <176> 

220 A*=<USR(F),11,0)+"“ <17B> 

230 PRINT A*;USR<F>,13,1;USR(F>,14,2 <024> 

240 NEXT E <036> 

250 END <252> 

299 REM DATAZEILEN <190> 

300 DATA 32,141,173,32,221,189,32,253,174, 

32,158,183,134,88,32,253,174,32 <212> 

301 DATA 158,183,134,87,104,104,162,255,16 

0,0,232,189,0,1,240,117,201,69,240 <057> 

302 DATA 8,201,46,208,242,138,168,208,238, 

173,2,1,201,46,208,12,202,160,1 <250> 

303 DATA 200,1B5,1,1,153,0,1,208,247,1B9,2 

,1,41,15,10,133,2,10,10,101,2,125 <139> 

304 DATA 3,1,233,47,188,1,1,192,45,240,23, 

105,3,134,2,229,2,168,169,48,157 <106> 


305 DATA 0,1,232, 136,20B,249, 169,0,157,0,1 

,240,168,133,2,169,0,157,0,1,138 <207> 

306 DATA 24,101,2,168,1B9,0,1,240,8,201,48 

,176,4,169,48,208,1,202,153,0,1 <04B> 

307 DATA 136,208,236,169,46,141,1,1,208,12 

9,152,240,18,165,87,208,7,152,170 <211> 

308 DATA 189,1,1,208,119,169,44,153,0,1,20 

8,12,196,87,240,40,169,44,157,0 <159> 

309 DATA 1,232,208,16,132,2,56,138,229,2,5 

6,233,1,197,87,240,19,176,72,168 <011> 

310 DATA 169,4B,157,0,1,232,200,196,87,208 

,247,169,0,157,0,1,173,1,1,201,48 <115> 

311 DATA 176,17,232,138,168,185,255,0,153, 

0,1,136,208,247,169,48,141,1,1,228 <091> 

312 DATA 88,176,20,164,88,189,0,1,153,0,1, 

136,202,16,246,169,32,153,0,1,136 <163> 

313 DATA 16,250,169,0,160,1,76,135,180,56, 

229.B7,133,2,138,56,229,2,170,189 <206> 

314 DATA 0,1,201,53,144,179,138,168,136,24 

0,24,185,0,1,201,48,144,246,24,105 <086> 

315 DATA 1,201,5B,153,0,1,208,157,169,48,1 

53,0,1,208,229,138,168,185,0,1,153 <028> 

316 DATA 1,1,136,208,247,169,49,141,1,1,23 

2,208,131 <030> 


© G4'er 

Listing 2. PRINT USING-Basic-Lader. Bitte beachten Sie 
die Eingabehinweise auf Seite 6 
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Basic-Erweiterungen 


Game-Basic 

Mit dieser Befehlserweiterung lassen 
sich mit wenig Aufwand sehr effektvol¬ 
le Spiele schreiben. Es wird dabei der 
Umgang mit Sprites und Sonderzei¬ 
chen und die Bildschirmverwaltung 
(Scrolling) unterstützt. 

Da ich einen Großteil meiner eigenen Programme in Basic 
schreibe und mir dabei die nicht sehr komfortable »POKE«-erei 
auf die Nerven geht, habe ich nun eine Basic-Ervyeiterung ge¬ 
schrieben die, wie ich meine, diese Vorgänge um Einiges er¬ 
leichtert. 

Eingabe des Programms 

1) Das Programm »Game-Basic-COOO« mit dem MSE-V1.0 ein¬ 
geben (siehe Listing 1) und speichern. 

2) Programm mit »SYS 49152« starten. Das Programm ko¬ 
piert sich nun selbständig an den Basic-Start ab $0800. 

3) Das Programm nun mit SAVE "GAME-BASIC”,8 (oder bei 
Kassette: ,1) speichern. 

Das Game-Basic kann nun ganz normal geladen und mit 
»RUN« gestartet werden. 


Die Speicherbelegung 


Alle wichtigen Adressen (Bildschirm, Farbspeicher, Sprites, 
SID, Timer etc.) bleiben unverändert. Der Bereich $0800- 
$0FFF ist für 32 Sprites reserviert, die dort abgelegt werden. 
Die Erweiterung selbst liegt im Bereich $1000-$17B0. Der Be¬ 
reich $17B1-$1FFF bleibt frei und kann für eigene Maschinen¬ 
programme genutzt werden. Ab der Adresse $2000 bis 
$27FF liegt ein frei definierbarer Zeichensatz. Ab $2800 be¬ 
ginnt der Basic-Speicher (!). Dieser dehnt sich wie gewohnt bis 
zur Adresse $9FFF. Das RAM im Bereich $A000-$CFFF und 
von $E000-$FFFF bleibt frei und kann für eigene Zwecke ver¬ 
wendet werden. 


Die Befehle 


Der Befehl »RESET« bewirkt einen Neustart der Basic-Er- 
weiterung, wobei ein vorhandenes Basic-Programm nicht ge¬ 
löscht wird. 

Da es gerade bei Basic-Erweiterungen leicht Vorkommen 
kann, daß man einzelne Befehle vergißt und nicht immer eine 
Anleitung zur Hand hat, habe ich den Befehl HELP mit einge¬ 
baut. Er listet alle zusätzlichen Kommandos auf. 

Auf HiRes-Befehle habe ich grundsätzlich verzichtet, da 
meine Erweiterung ja hauptsächlich für die Verwendung im 
Spiele-Bereich vorgesehen ist. Normalerweise ist es nicht üb¬ 
lich, ein Spielprogramm in HiRes-Grafik zu erstellen (außer Lo- 
derunner und ein paar anderen), sondern mit Hilfe von Sonder¬ 
zeichen. Außerdem wäre das Programm dann um einiges län¬ 
ger. (Es genügen schon zwei KByte, wenn man sie abtippen 
muß.) 

Alle reinen Basic-Programme laufen natürlich auch mit der 
Erweiterung. Will man die Erweiterung trotzdem abschalten, 
ohne den Computer ausschalten zu müssen, so kann man das 
mittels des Befehls »BASIC« tun. Die Erweiterung kann dann 
mit SYS 4096 wieder aktiviert werden, falls sie nicht aus 
irgendeinem Grund überschrieben wurde 


Wer hat sich nicht auch schon über das lästige POKE 
53281,xx:POKE 53280,xx:POKE 646,xx... geärgert? Mit 
dem Befehl »COLOR« lassen sich Bild-, Rahmen- und Zeichen¬ 
farbe ganz einfach einstellen. Zum Beispiel blauer Rahmen, 
weißer Hintergrund und grüne Schrift: COLOR6,1,5 


Steuerzeichen entfallen 


Damit wären wir auch schon bei den Befehlen, die den Bild¬ 
schirm betreffen. Der Befehl »SCROFF« schaltet den Bild¬ 
schirm aus; zum Beispiel während vom Programm ein Bild auf¬ 
gebaut wird. Mit »SCRON« wird er wieder eingeschaltet. Die 
komplizierte »POKE«-erei im VIC hat nun ein Ende. 

Mit »PAINT« wird der Farbspeicher für den Bildschirm mit der 
angegebenen Farbe gefüllt. Ein beschriebener Bildschirm 
kann natürlich auch nachträglich umgefärbt werden. Man kann 
damit ganz hübsche Effekte erzielen. 

»REVERS« invertiert den Bildschirminhalt. 

Auch die lästigen Steuerzeichen entfallen mit der Erweite¬ 
rung bis auf RVSON und RVSOFF. (Aber auch die kann man 
durch POKE 199,1 beziehungsweise POKE 199,0 umgehen.) 
Der Bildschirm wird nicht mehr mit PRINTCHR$(147), sondern 
einfach mit »CLS« gelöscht. 

Mit dem Befehl »CLEAR« kann man sogar einzelne Zei¬ 
len beziehungsweise Zeilenblöcke löschen. Zum Beispiel 
»CLEAR 12,24« löscht den Bildschirm ab der 13. Zeile (die er¬ 
ste Zeile ist Zeile 0). 

Das Editieren von Programmen wird mit meiner Erweiterung 
fast nicht unterstützt, da die Aufgabe der Expansion ja darin lie¬ 
gen soll, Spielprogramme in Basic schneller ablaufen zu las¬ 
sen. Ivi,t dem Befehl »TAB« kann man zumindest die Übersicht 
in einem Listing etwas erhöhen. Es wird jeder Befehl in eine 
eigene Zeile geschrieben, was, die Übersicht betreffend, auch 
nicht zu verachten ist. Bevor man dann eine Zeile wieder än¬ 
dern will, muß unbedingt durch einen erneuten »TAB«-Befehl 
diese Darstellung wieder abgeschaltet werden. 

Die Befehle INC und DEC, also Inkrement (Erhöhen) und De¬ 
krement (Erniedrigen) sind eine Abwandlung des POKE- 
Befehls. Es wird nicht wie bei POKE eine Zahl in eine Adresse 
geschrieben, sondern eine in einer Adresse vorhandene Zahl 
um den angegebenen Wert erhöht beziehungsweise ernie¬ 
drigt. 

Sollte ein Programm für eine Sekunde anhalten, mußte man 
bisher eine umständliche Zeitschleife verwenden (FOR T = 1 
T01000: NEXT). Diese wird nun durch den Befehl PAUSE er¬ 
setzt. 1 Sekunde Wartezeit = PAUSE 500. 


Zeichensatz verändern 


Jedes professionelle Spiel kommt nicht ohne Sonderzei¬ 
chen aus. Daher war es von vornherein klar, daß meine Erwei¬ 
terung Befehle zur Erstellung eines eigenen Zeichensatzes 
enthalten sollte. Dabei ist die Darstellungsweise in Form von 
DATA-Zeichen die übersichtlichste. Ich habe dazu den Befehl 
»CODE« gewählt (siehe Beispiel »Ö« im folgenden Text). 

In meiner Erweiterung gibt es den Befehl COPY: Er kopiert 
den Zeichensatz ins RAM, wo er dann mittels CREATE und 
CODE verändert werden kann. Mit CREATE wird das zu verän¬ 
dernde Zeichen festgelegt. Wir wollen zum Beispiel aus dem 
O einen Umlaut Ö machen. So schreiben wir folgendes: 
CREATE 1,15. 

Die 1 bewirkt, daß wir ein Zeichen (0 wäre für Sprites) verän¬ 
dern und die 15 ist der POKE-Code für den Buchstaben O. Der 
Befehl CODE bestimmt nun das Bitmuster für das mit CREATE 
ausgewählte Zeichen. Unser 0 würde nun im Programm so 
aussehen: 












Basic-Erweiterungen 


Alle neuen Befehle 
auf einen Blick 

RESET Neustart der Erweiterung; bereits vorhandene Basic- 
Programme werden nicht gelöscht. 

HELP Auflistung aller Befehle von Game-Basic. 

BASIC Abschalten der Erweiterung; auch hier werden Programme 
nicht gelöscht. 

COLOR rf,hf,zf Rahmen- (rf), Hintergrund- (hf) und Zeichenfarbe (zf) 
setzen. 

REVERS Invertiert den gesamten Bildschirminhalt. 

PAINT f Färbt Bildschirminhalt mit Farbe f. 

CLS Bildschirm löschen. 

SCROFF Bildschirm ausschalten. 

SCRON Bildschirm wieder einschalten. 

CLEAR an,en Bildschirm wird von Zeile an bis Zeile en gelöscht. 
COPY Zeichensatz ins RAM kopieren. 

TAB Formatierten UST-Modus ein- beziehungsweise ausschalten, 
PAUSE t Das Programm wird t* 0,002 Sekunden lang angehalten. 
INC ad,eh Addiert eh zum Inhalt der Adresse ad. 

DEC ad,eh Subtrahiert eh vom Inhalt der Adresse ad. 

SET s,z,f,”text” Schreibt »text« in die Zeile z, Spalte s mit der 
Farbe f. 

SCROLL az,ez,s,z,f,r Scrollt Bildschirmbereich von Anfangszeile az 
bis Endzeile ez in Richtung r (0=nach rechts, 1=nach links). Dabei 
werden Zeichen mit dem Code z in der Farbe f nachgescrollt. 

SON s Schaltet Sprite Nummer s ein. 

SOFF s Schaltet Sprite Nummer s aus. 

SPRITE s,bl,ye,xe,pr,mc,f 

Bestimmt Sprite Nummer s: 

bl = Block (32-64) 

ye = doppelte Höhe (0=nein, 1=ja) 

xe = doppelte Breite (0=nein, l=ja) 

pr = Priorität vor (=0) oder hinter (=1) Bildschirmzeichen 

mc = Multicolor an ( = 1) oder aus (=0) 

f = Farbe des Sprites 

SSET s,x,y Setzt Sprite Nummer s an Position x (0-511!), y (0-255). 
SRUN s,ri Sprite s bewegt sich in angegebene Richtung; 

0 7 6 5 4 3 2 1 

SSTOP s Sprite s hält wieder an. 

MULTI C,z1,z2,s1,s2 Multicolor-Mode ein- und ausschalten: 
c = 0 = Multicolor für Zeichen an 

1 = Multicolor für Zeichen aus 

2 = Angabe von Zusatzfarben 

Bei Verwendung von 0 oder 1 brauchen die Zusatzfarben nicht mit 
angegeben werden, 
zl = Zusatzfarbe 1 für Zeichen 
z2 = Zusatzfarbe 2 für Zeichen 
sl = Zusatzfarbe 1 für Sprites 
s2 = Zusatzfarbe 2 für Sprites 

CREÄTE m,b1 Erstellen eines neuen Zeichens/Sprites: 
m = Mode (0=Sprite, 1=Zeichen) 
bl = Spriteblock oder Zeichencode 

CODE bits Nur in Zusammenhang mit dem CREATE-Befehl. 

Bei Sprites 24 Bits, bei Zeichen 8 Bits. 

.= Hintergrundfarbe. , 

1 = Farbe des Zeichens/Sprites (bei Multicolor-Mode Zusatzfarbe 1) 

2 = Zusatzfarbe 2 

3 = Farbe des Zeichens/Sprites bei Multicolor-Mode 


10 

CREATE 

1,15 oder 

10 

CREATE 

1,15 

20 

CODE 

.11 . .11. 

20 

CODE 

. 11 . . 11. 

30 

CODE 


30 

CODE 

. .1111 .. 

40 

CODE 

..1111.. 

40 

CODE 

50 

CODE 

.11 . .11. 

50 

F0RI = 1T04 

60 

CODE 

.11 . .11. 

60 

CODE 

.11 . .11. 

70 

CODE 

.11 . .11. 

70 

NEXTI 


80 

CODE 

.11 . .11. 

80 

CODE 

. .1111 .. 

90 

CODE 

..1111 .. 




Es würde auch schon folgendes genügen, 
Bitmuster mit dem 0 übereinstimmen: 

da die restlichen 

10 

CREATE 

1,15 




20 

CODE 

.11 . .11. 




30 

CODE 





40 

CODE 

..1111 .. 





Der Zeichensatz kann natürlich auch durch die altbewährte 
POKE-Methode verändert werden, da er jetzt »mitten« im 
RAM-Bereich liegt (ab $2000 dez. 8192). 

Auch der Multicolor-Modus wird in meiner Erweiterung so¬ 
wohl für Zeichen als auch für Sprites voll unterstützt: 

Aktiviert wird dieser mit dem Befehl MULTI 1 beziehungs¬ 
weise ausgeschaltet mit MULTI 0. Die Multicolor- 
Zusatzfarben (zwei an der Zahl) bestimmt man ebenfalls mit 
MULTI. 

»MULTI 2, 5, 2, 6, 7« bedeutet zum Beispiel, daß ab jetzt 
Zeichen in den Farben Grün (5) und Rot (2), Sprites in den Far¬ 
ben Blau (6) und Gelb (7) dargestellt werden. MULTI 2,... be¬ 
deutet: Multicolor-Modus mit den folgenden Farben einschal¬ 
ten. Bei den Bitmustern ändern sich jetzt allerdings die Codes: 
1 = Zusatzfarbe 1,2 = Zusatzfarbe 2,3 = normale Zusatz¬ 
farbe, . = leer 

Die JpuDte Version unseres Ö sähe nun so aus: 


CODE . 

. 11 . 

.11 


CODE . 
CODE . 

.11 . 

.11 

entspricht grün 

CODE . 

.222222 


CODE . 

.22. 

.22 


CODE . 

.22. 

.22 

entspricht rot 

CODE . 

.33. 

.33 


CODE . 

.333333 

entspricht aktueller Zeichenfarbe 


Es ist darauf zu achten, daß die Zahlen der CODES immer 
paarweise angegeben werden (Multicolor). Bei der Erstellung 
von Sprites wird genauso vorgegangen, bis auf folgende Än¬ 
derungen: 

1) »CREATE 0, Spriteblock (32-63)«. Statt dem Zeichensatz 
wird der gewählte Block angegeben (32-63). Die 0 teilt dem 
Computer mit, daß ein Sprite und kein Zeichen verändert be¬ 
ziehungsweise erstellt werden soll. 

2) Das Bitmuster beim CODE-Befehl hat jetzt 24 Stellen an¬ 
statt acht bei Zeichen. 


Bildschirmverwaltung 


Der Befehl SET ist ein erweiterter PRINT-Befehl. Der Unter¬ 
schied zum PRINT-Befehl liegt darin, daß die Steuerzeichen 
entfallen (wie anfangs erwähnt). 

Zum Beispiel SET 18,12,1,"TEXT’ 

Dieser Befehl schreibt das Wort TEXT in die zwölfte Zeile ab 
der 18. Spalte in weißen Zeichen. Mit dem normalen PRINT- 
Befehl würde man dazu eine Unmenge Steuerzeichen benöti¬ 
gen; außerdem ist der SET-Befehl schneller. 

Der Befehl SCROLL verschiebt beziehungsweise verändert 
beliebige Bildschirmbereiche. Eine genauere Erklärung möch¬ 
te ich an dieser Stelle unterlassen, da man die Möglichkeiten 
durch eigene Versuche am besten sehen kann. 

Die restlichen sechs der insgesamt 26 Befehle meiner Er¬ 
weiterung unterstützen ausschließlich den Umgang mit 
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Basic-Erweiteru ngen 


Sprites. Mit SON wird ein Sprite ein- beziehungsweise mit 
SOFF wieder ausgeschaltet. 

SSET positioniert ein Sprite an eine beliebige Stelle im (oder 
außerhalb vom) Bildschirm. Das achte Bit im VIC-Register 16 
für die Sprite X-Position braucht dabei nicht beachtet zu wer¬ 
den. Mit SPRITE wird ein Sprite definiert. Folgende Parameter 
werden hier angegeben: 

Spritenummer, Block (Aussehen des Sprites — 32-63), Y- 
Expanded (ja oder nein), X-Expanded (ja oder nein), vor oder 
hinter Bildschirmzeichen, Multicolor (ja oder nein), Grund¬ 
farbe. 

Ein ganz spezieller Befehl ist SRUN. Mit SRUN kann ein be¬ 
liebiges Sprite (oder auch mehrere) in eine von acht möglichen 
Richtungen bewegt werden. Das Programm wird dadurch aber 
nicht aufgehalten, da die Sprites vom Interrupt gesteuert wer¬ 


den. Dadurch ist es zum Beispiel möglich, daß ein Sprite, wäh¬ 
rend es bewegt wird, seine Gestalt verändern oder sogar das 
Programm gelistet werden kann. Man kann sich so zum Bei¬ 
spiel ein Sprite in Bewegung ansehen, während man es edi¬ 
tiert. Aber auch hier sind natürlich eigenen Versuchen keine 
Grenzen gesetzt. Der letzte Befehl SSTOP ist der Gegensatz 
zu SRUN, das heißt er stoppt die mit SRUN gestarteten Spri¬ 
tes. Die Positionen der Sprites können wie bisher mit dem nor¬ 
malen PEEK ausgelesen werden. 

Eine Befehlsübersicht gibt Tabelle 1. Das Beispielprogramm 
(Listing 2) zeigt, wie man innerhalb von Spielen diese neuen 
Befehle einsetzt. Bitte zur Eingabe von Listing 2 nicht den 
Checksummer verwenden, da dieser nicht mit Basic-Erwei- 
terungen zusammenarbeitet. 

(Ronald Mayer/tr) 
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c240 
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20 
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a9 
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2c 
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Listing 1. Game-Basic. (Schluß) 


10 REM********************* 

20 REM* GAME-BASIC DEMO * 

30 REM*-* 

40 REM* (C) 19B5 MR-SOFT * 

50 REM* RONALD MAYER * 

60 REM* THENING 24 * 

70 REM* A—4062 THENING * 

80 REM* AUSTRIA * 

90 REM********************* 

95 A*="* GAME-BASIC DEMOPROGRAMM **** 

§ 1985 BY MR-SOFT RONALD MAYER ***" 

100 C0L0R9,15,6:CLS:COPY 

110 SET15,11,6,"GAMEBASIC":SET16,13,2,"D 
E M O" 

120 FORI=0TO24:SCROLL0,24,0,32,15,0:SCRO 
LL0,24,0,32,15,1:NEXT:PAUSE500 

125 FORI=1TO10:REVERS:PAUSE100:NEXT 

126 SCROLL0,10,39,160,9,1 

127 SCROLL14,24,39,160,9,0:PAUSE500 

128 FORI=1TO40:SCROLL11,13,0,160,12,1:PA 
USE40:NEXT 

130 FORI=0TO39:SCROLL0,24,0,160,I,0:NEXT 
140 FORI=0TD24:SCROLLI,24,1,160,1,1:NEXT 
:PAINT11 

150 CREATE1,160:FOR1=1T08 

160 CODE.PAUSE200: NEXT 

161 CREATE1,160:FOR1=1TOS 

162 CODE11111111:PAUSE200:NEXTI 
170 SCROLL0,24,19,160,15,0 

180 COLOR9,0,6 

190 SCROLL0,24,19,32,0,1 

200 CREATE0,32 

210 CODE.333333. 

220 CODE-3333333333. 

230 CODE..33333333333333. 

240 CODE..33333333333333. 

250 C0DE333333333333333333. 

260 C0DE33333333..33333333. ..... 

270 C0DE333333.331111111111 

280 C0DE333333..1111111111 

290 C0DE333333.11111111.. 

300 C0DE333333.111111_ 

310 C0DE333333. 

320 C0DE333333.222222_ 

330 C0DE333333.. 22222222. . 

340 C0DE333333.2222222222 

350 C0DE333333.332222222222 

360 C0DE33333333..33333333. 

370 C0DE333333333333333333. 

380 CODE..33333333333333. 

390 CODE..33333333333333. 

400 CODE-3333333333. 

410 CODE.333333. 

420 SST0P8:S0FF8:MULTI2,0,0,10,6:FORI=0T 
07 : SSETI,40+1,138-1:NEXT 
430 FORI=7TO0STEP—1:SPRITEI,32,0,0,1,1,1 
+1:SONI:PAUSE300:NEXT 


440 F0RJ=1T02 

450 FORI=0TQ7:SRUNI,1:PAUSE80:NEXT 
460 FORI=0TO7:SRUNI,5:PAUSE80:NEXT 

465 FORI=0TO7:SRUN1,3:PAUSE80:NEX T 

466 FORI=0TO7:SRUNI,7:PAUSE80:NEXTI,J 
470 FORI=0TO7:SOFFI:SSTOPI:PAUSE100:NEXT 
I 

480 SCR0LL5,19,39,45,15,1 

490 FORI=0TO7:SSETI,172,139:NEXT 

500 SCROLL10,14,39,64,14,1 

501 SCROLL0,4,9,32,0,0 

502 SCROLL20,24,9,32,0,0 

510 SONS:FORI=0TO7:SRUNI,I:NEXT : PAUSE200 
0 

520 CREATE0,32 

521 CODE.333333333333_ 

522 CODE-3333333333333333... 

523 CODE-3333333333333333.. . 

524 n ' DE. . 333333.333333. 

525 CODE. . 333333.333333. , 

526 CODE..3333..22222222..3333..:PAUSE50 
0 

527 C0DE333333..22222222..333333 

528 CODE3333..112222222222..3333 

111122222222.. 3333 
,111122222222..3333 

111111222222.. 3333 

111111112222.. 3333 

111111112222..3333 

,111111111122..3333 

535 C0DE333333..11111111..333333:PAUSE50 
0 

536 CODE..3333..11111111..3333. 

537 CODE. . 333333.333333. 

538 CODE. . 333333.333333. 

539 CODE-3333333333333333... 

540 CODE_3333333333333333... 

541 CODE.333333333333_ 

550 CREATE1,0 

560 CODE..1111.. 

570 CODE. 1-1. 

580 C0DE1..11..1 

590 C0DE1. 1-1 

600 CODE 1.1-1 

610 C0DE1..11..1 

620 CODE. 1_1. 

630 CODE..1111.. 

640 FOR1=1T02:FORJ=1T069:PAUSE40 

649 B*=MID*(A*,J,1> 

650 SCROLL12,12,0,ASC(B$)ANDN0T64,15,0:N 
EXTJ,I:PAUSE1000 

660 FORI=0TO39:SCROLL0,24,0,77+RND(1)*2, 
9,1:NEXT:PAUSE3000:GOTO126 


,529 CDDE3333. , 

530 C0DE3333. , 

531 C0DE3333. , 

532 C0DE3333. , 

533 C0DE3333. . 

534 C0DE3333. , 


READY. 


Listing 2. Beispielprogramm zu Game-Basic 
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Basic-Erweiter ungen 


Disk-Basic 64 

Disk-Basic 64 ist eine besonders lei¬ 
stungsfähige diskettenorientierte Ba¬ 
sic-Erweiterung, die mit fast 50 neuen 
Befehlen das Arbeiten mit dem Disket¬ 
tenlaufwerk enorm erleichtert. 

Wer kennt sie nicht, die unzähligen OPENs und PRINTs, die 
notwendig sind, wenn man Befehle an das 1541-Laufwerk sen¬ 
den will. Auch beim Laden und Speichern ist das normale 
Commodore-Basic nicht gerade komfortabel. Abhilfe schafft 
die Basic-Erweiterung »Disk-Basic 64«. Sie enthält unter ande¬ 
rem fast alle diskettenorientierten Befehle des Basic 4.0 von 
Commodore, das der C 128 ebenfalls kennt. Viele Funktionen 
die sich bisher nur mit Spezialprogrammen oder einem Disk¬ 
monitor realisieren ließen, werden nun auf einen Basic-Befehl 
hin ausgeführt und sind somit auch programmierbar. 

Zur Eingabe von »Disk-Basic 64« verwenden Sie bitte den 
MSE. Nach dem Speichern kann die Basic-Erweiterung dann 
jederzeit mit »LOAD " DISK-BASIC ",8« geladen und mit »RUN« 
gestartet werden. Danach steht »Disk-Basic 64« im Speicher¬ 
bereich von $9200 bis $9DFF. Dieser Bereich wird für Basic 
automatisch gesperrt, so daß nur noch 35327 Bytes, also 
3584 Bytes weniger, für Basic-Programme zur Verfügung ste¬ 
hen. Der $C-Bereich bleibt für eigene Maschinenprogramme 
oder einen Monitor frei. 

Doch jetzt zur Beschreibung der neuen Befehle: 

DLOAD"name" 

Das Programm »name« wird von der Diskette an den Basic- 
Anfang geladen. Entspricht »LOAD"name",8«. 

DSAVE"name" 

Das momentan im Speicher befindliche Basic-Programm wird 
auf der Diskette gespeichert. Entspricht »SAVE"name",8«. 

DVERFIY"name" 

Das momentan im Speicher befindliche Basic-Programm wird 
mit dem auf Diskette gespeicherten Programm »name« vergli¬ 
chen. Entspricht »VERIFY"name",8«. 

REPLACE"name" 

Ersetzt das Programm »name« äuf der Diskette durch das im 
Speicher befindliche. Entspricht dem Basic-Befehl »SAVE" 
@:name",8« 

SCRATCH"name" 

Das File »name« wird gelöscht. Im Namen dürfen auch die Jo¬ 
kerzeichen »?« und »*« verwendet werden. Es werden dann 
sämtliche Files, die dem Namen entsprechen, gelöscht. Ent¬ 
spricht dem Floppy-Befehl »S:«. 

RENAME "altnnme" TO "neuname" 

Das File mit dem Namen »altname« wird in »neuname« umbe¬ 
nannt. Entspricht dem Floppy-Befehl »R:«. 

COPY "altfile" TO "neufile" 

Das File »altfile« wird auf dieselbe Diskette als »neufile« kopiert. 
So können Sicherheitskopien von Files hergestellt werden. Mit 
diesem Befehl kann nicht von einer Diskette auf eine andere 
kopiert werden. Entspricht dem Floppy-Befehl »C:«. 

HEADER"name,id" 

Die im Laufwerk befindliche Diskette wird mit dem Namen »na¬ 
me« und der ID »id« formatiert. Wird »,id« weggelassen, so wird 
die Diskette nur gelöscht. Entspricht dem Floppy-Befehl »N:« 


COLLECT 

Die Diskette wird aufgeräumt, das heißt, daß alle Blöcke, die 
nicht von Files belegt sind, freigegeben werden und sämtliche 
nicht ordnungsgemäß geschlossenen Files gelöscht werden. 
Entspricht dem Floppy-Befehl »V«. 

INIT 

Die Diskette wird initialisiert. Entspricht dem Floppy-Befehl »I«. 

CHECK 

Der Fehlerkanal des Laufwerks wird auf dem Bildschirm ausge¬ 
geben (siehe auch DS$). 

CATALOG 

Das vollständige Directory wird auf dem Bildschirm ausge¬ 
geben. Dabei verlangsamt die CTRL-Taste den Ausdruck, die 
Commodore-Taste hält die Ausgabe an und die Stop-Taste 
beendet den Befehl. 

DIR"$:auswahl" 

Die dem Ausdruck entsprechenden Teile des Directory wer¬ 
den auf dem Bildschirm ausgegeben. »DIR"$:‘ = P"« druckt 
beispielsweise nur die Programme, »DIR"$:?=R"< alle ein- 
buchstabigen, relativen Files. Ansonsten gelten die Kontroll- 
möglichkeiten von CATALOG. 

BSAVE"nome"start,ende+l 

Mit diesem Befehl kann der Speicherbereich von Start bis 
ende auf Diskette gespeichert werden. Dies können Maschi¬ 
nenprogramme, Grafikbilder oder sonstiges sein. 

BLOAD"name" < f adr> 

Das File »name« wird an die angegebene Speicheradresse 
geladen. Wird keine Adresse angegeben, so wird das File an 
die AJ. rsse geladen, an der es beim Speichern stand. Da kei¬ 
ne Basic-Vektoren verändert werden, tritt kein »OUT OF ME¬ 
MORY ERROR« mehr auf, wenn in den $C-Bereich geladen 
wurde. Ebenso wird bei einem BLOAD in einem Basic- 
Programm das Programm nicht neu gestartet, wie bei LOAD, 
sondern direkt hinter dem BLOAD fortgesetzt. 

CHAIN"name" < f zn > 

Das Basic-Programm »name« wird geladen und bei der Zei¬ 
lennummer zn gestartet. Fehlt die Zeilennummer, so wird bei 
der ersten Zeile gestartet. Wird eine nicht existierende Zeilen¬ 
nummer angegeben, so gibt der Computer einen »UNDEF’D 
STATEMENT ERROR« aus. Achtung! Bei CHAIN gehen die In¬ 
halte der Variablen wie bei LOAD verloren! Dies muß man be¬ 
achten, wenn man CHAIN zum Nachladen von Programmtei¬ 
len in Basic-Programmen einsetzen will. 

PASS"kommando" 

Mit diesem Befehl lassen sich Kommandos an das Laufwerk 
senden, die nicht direkt von Disk-Basic unterstützt werden, so 
zum Beispiel die »U«- oder »B«-Kommandos. 

DPOKE adresse,weit 

Dieser Befehl entspricht dem normalen POKE mit der Aus¬ 
nahme, daß der Wert in der Adresse des Laufwerk-RAMs ge¬ 
speichert wird. Er ist nur im Adressenbereich von 0 bis 2047 
sinnvoll. 

DPEEK(adresse) 

Diese Funktion entspricht dem PEEK. Der Inhalt einer Spei¬ 
cherstelle des Laufwerkes kann mit »?DPEEK(adresse)« aus¬ 
gedruckt oder mit »variable = DPEEK(adresse)« in eine Varia¬ 
ble übergeben werden. 

DSYS(adresse) 

Mit diesem Befehl können Maschinenprogramme im Lauf¬ 
werk gestartet werden. Entspricht dem Basic-Befehl SYS. Ein 
Beispiel: DSYS (60064) löst in dem angeschlossenen Flop- 
py-Laufwerk einen Reset aus. 
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Basic-Erweiter ungen 


Programm : disk-basic 0B01 1641 
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Listing »Disk-Basic«. Beachten Sie 
die Eingabehinweise auf Seite 8. 


NAME"nome" 

Der 16 Zeichen lange Name einer Diskette wird umgeän¬ 
dert. Hat der Stringname mehr als 16 Zeichen, wird ein 
»STRING TOO LONG ERROR« ausgegeben. 

ID"id" 

Mit diesem Befehl kann die Id sowie das Formatkennzeichen 
in der ersten Zeile des Directory geändert werden. Der String 
»id« kann maximal 5 Buchstaben haben und überschreibt dann 
die ID, das Förmatkennzeichen (normalerweise »2A«) und das 
Leerzeichen zwischen den beiden. Achtung! Diese Änderun¬ 
gen beziehen sich nur auf das Directory. Die tatsächliche ID 
und Förmatkennzeichen werden nicht verändert. 

PROTECT <"name"> 

Mit dem Befehl PROTECT wird eine ganze Diskette schreib¬ 
geschützt, indem das echte Förmatkennzeichen von »A« auf 
»X« geändert wird. Es sind dann keinerlei Schreibzugriffe mehr 
auf diese Diskette möglich. 

Wird beim PROTECT-Befehl ein Name angegeben, so wird 
nur das File mit diesem Namen gegen Löschen und Über¬ 
schreiben geschützt. Der Schreibschutz ist am Kleiner¬ 
zeichen hinter dem Filetyp im Directory erkennbar. Es dürfen 
keine Joker im Namen angegeben werden. 

REPROTECT < "name" > 

Mit diesem Befehl lassen sich der Disketten- und File- 
Schreibschutz wieder rückgängig machen. Siehe PROTECT. 


CHANGE dev.alt TO dev. neu 

Hiermit lassen sich softwaremäßig die Gerätenummern des 
1541-Laufwerks verändern. So ändert »CHANGE 8 TO 9« die 
Gerätenummer des gerade eingeschalteten Laufwerkes auf 9. 
So lassen sich mehrere Laufwerke gleichzeitig betreiben. 

DEVICE dev 

Mit diesem Befehl läßt sich einstellen, auf welche Geräte¬ 
nummer sich die Befehle des Disk-Basics beziehen. Nach 
»DEVICE 9« werden sämtliche Befehle am Laufwerk unter der 
Gerätenummer 9 ausgeführt. Dieser Wert wird in der Spei¬ 
cherstelle 2 gespeichert. 

RESET d 

Das Laufwerk mit der Gerätenummer d wird in den Einschalt¬ 
zustand versetzt. Aus Sicherheitsgründen muß immer die Ge¬ 
rätenummer angegeben werden. Bitte warten Sie einige Se¬ 
kunden bevor Sie dieses Laufwerk wieder ansprechen. 

MERGE"nume" 

Das Programm »name« wird von der Diskette geladen und an 
das im Speicher befindliche angehängt. Achten Sie darauf, 
daß das zweite Programm höhere Zeilennummern als das er¬ 
ste hat. 

CONCAT "altfilel" & "altfile2" TO "neufile" 

Mit diesem Befehl können zwei sequentielle Files zu einem 
verkettet werden. Dies funktioniert nicht mit Programmen! 
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Basic-Erweiter u ngen 


DS$ und DS 

In diesen beiden Variablen ist stets die aktuelle Fehlermel¬ 
dung (DS$) beziehungsweise die aktuelle Fehlernummer (DS) 
des Laufwerkes. Sie dürfen deswegen nicht in Zuweisungen 
wie »DS$= "HALLO"« verwendet werden. 

DOPEN# Ifn/'name",pl,p2 

Mit DOPEN lassen sich alle Arten von Files auf dem Lauf¬ 
werk eröffnen. Die Filenummer darf von 2 bis 255 gehen. 
Empfehlenswert sind Nummern von 2 bis 14, da die Sekun¬ 
däradresse des Files immer gleich der Filenummer logisch 
»UND«-verknüpft mit 15 ist, also immer im Bereich von 0 bis 
15 liegt. Für den Fileparameter pl sind die Buchstaben »S«, 
»U«, »P« und »L« erlaubt. Die ersten drei stehen für sequentiel¬ 
le, User- und Programm-Files. Der Parameter p2 ist dann ent¬ 
weder »W« oder »R« für Schreiben oder Lesen. 

Lautet der erste Parameter »L« so wird ein relatives File zum 
Schreib/Lese-Zugriff eröffnet. Die Länge eines Datensatzes 
(Record) wird direkt an das »L« angehängt. Der zweite Parame¬ 
ter entfällt. Ein Beispiel: »DOPEN 2, "name ",L40« eröffnet ein 
relatives File mit der Record-Länge 40. 

DCLOSE < #lfn> 

Dieser Befehl schließt das File mit der Nummer Ifn. Wird 
keine Filenummer angegeben, werden alle geöffneten Files 
ordnungsgemäß geschlossen. 

APPEND # Ifn/'name" 

Ein sequentielles File wird zum Erweitern (Anhängen von 
Datensätzen) geöffnet. Die Sekundäradresse errechnet sich 
wie bei DOPEN. 

FETCH#lfn,len,xx$ 

Mit diesem Befehl werden aus dem File mit der Nummer Ifn 
eine festgelegte Anzahl (len) von Zeichen in eine beliebige 
Stringvariable (xx$) übertragen. Die Vorteile gegenüber dem 
INPUT#-Befehl sind: Datensätze sind nicht mehr auf 88 Zei¬ 
chen beschränkt, sondern dürfen bis zu 255 Zeichen haben. 
Es werden auch Kommata und Doppelpunkte übernommen. 
Der Befehl kann auch im Direktmodus eingesetzt werden. 

RECORD # Ifn, rec < ,pos > 

Mit diesem Befehl wird die Bearbeitung von relativen Datei¬ 
en zum Kinderspiel. Der Zeiger auf die Datei mit der Filenum¬ 
mer Ifn wird auf den Datensatz mit der Nummer rec positio¬ 
niert. Zusätzlich kann noch die Position des Datei-Zeigers in¬ 
nerhalb dieses Datensatzes angegeben werden. Wird dieser 
Parameter weggelassen, wird immer auf das erste Zeichen po¬ 
sitioniert. Dies entspricht der Befehlsfolge: 

»PRINT #15, "P";CHR$(lfn);CHR$(reclo);CHR$(rechi); 
CHR$(pos)«. 

LIST ,, name" <,start-ende > 

Der LIST-Befehl wurde erweitert, so daß bei Angabe eines 
Namens das Listing im ASCII-Code als sequentielles File auf 
der Diskette abgelegt wird. Sollen nur Teile abgespeichert 
werden, so kann die normale LIST-Syntax für Bereichsmarkie¬ 
rungen angehängt werden. Basic-Programme können somit in 
Textverarbeitungsprogramme übernommen werden. 

ENTER"name" 

Mit ENTER kann ein auf Diskette gelistetes Programm wie¬ 
der in den Speicher übernommen werden. Die Zeichen, die 
gerade gelesen werden, werden zusätzlich auf dem Bildschirm 
ausgegeben. Eine Anwendungsmöglichkeit ist ein »echtes« 
MERGE, bei dem das zweite Programm nicht einfach ange¬ 
hängt, sondern die beiden entsprechend der Zeilennummern 
zusammengemischt werden. Achtung! Es dürfen keine dop¬ 
pelten Zeilennummern Vorkommen! 

BLOCKS 

Dies ist eine weitere Basic-Funktion. Mit ihr erhält man die 


Anzahl der freien Blöcke einer Diskette. Diese Funktion kann 
wahlweise in PRINT-Befehlen oder Wertzuweisungen verwen¬ 
det werden. 

START("name") 

Mit dieser Funktion läßt sich die Startadresse des Pro¬ 
gramms »name« ermitteln. Auch diese Funktion kann in PRINT- 
Befehlen und Wertzuweisungen verwendet werden. Ist dieses 
Programm nicht vorhanden, wird als Startadresse der Wert 
51143 ermittelt. 

SIZE("name") 

Mit dieser Funktion läßt sich die Länge eines Files in Blocks 
ermitteln. Hier gilt dasselbe wie bei den beiden anderen be¬ 
schriebenen Funktionen. 

RESCUE"name",ft 

Mit diesem Befehl kann ein soeben gelöschtes File wieder 
gerettet werden beziehungsweise der Filetyp eines Files ge¬ 
ändert werden. Für den Parameter ft sind die Zahlen 1 bis 4 
erlaubt. Sie bedeuten: 

0 = DELeted 

1 = SEQuential 

2 = PRoGram 

3 = USeR 

4 = RELative 

Der Filetyp im Directory wird angepaßt und anschließend ein 
VALIDATE ausgeführt, um die Blöcke dieses Files wieder zu 
belegen. Achtung! Wurde zwischen dem Löschen und dem 
Rettungsversuch auf die Diskette geschrieben (SAVE oder 
ähnliches), dann läßt sich mit hoher Wahrscheinlichkeit das 
gelöschte Programm nicht mehr retten! 

ENT." w $("name") 

Mit dieser Funktion lassen sich die kompletten 30 Bytes 
eines Directory-Eintrags in einen String ablegen: »xx$= 
ENTRY$("name")«. Die Verwendung im PRINT-Befehl ist 
zwar möglich aber sinnlos. Achtung! An den 30 Byte langen 
Fileeintrag werden drei Bytes angehängt, die Spur, Sektor und 
Position des gelesenen Eintrages darstellen. Diese drei Bytes 
dürfen nicht verändert werden, da sonst beim Zurückschrei¬ 
ben mit WRITE das Directory zerstört wird! 

WRITE xx$ 

Mit diesem Befehl kann ein manipulierter Directory-Eintrag 
zurückgeschrieben werden. Zusammen mit der ENTRYS- 
Funktion läßt sich beispielsweise ein Directory-Sortierpro¬ 
gramm aufbauen. Siehe ENTRYS. 

DESTROY n 

Der Track mit der Nummer n wird endgültig zerstört. Beim 
Zugriff auf diesen Track erhält man nur den 21 READ ER¬ 
ROR. Die Diskette kann nur noch durch komplettes Neuforma¬ 
tieren normalisiert werden. Nach der Ausführung dieses Be¬ 
fehls muß das Laufwerk kurz ausgeschaltet werden. 

QUIT 

Mit QUIT wird Disk-Basic verlassen, ohne daß das im Speicher 
befindliche Basic-Programm gelöscht wird. Allerdings gehen 
die Variablen-Inhalte verloren. 

COMMANDS 

Auf dieses Kommando hin werden alle zusätzlichen Befehle 
von Disk-Basic auf dem Bildschirm ausgegeben. 

Noch einige kleine Anmerkungen: Anders als bei vielen 
Basic-Erweiterungen muß zwischen dem THEN-Befehl und 
einem Disk-Basic-Kommando kein Doppelpunkt stehen! Bei 
allen Befehlen wird, ist das durch DEVICE festgelegte Lauf¬ 
werk nicht angeschlossen, ein »DEVICE NOT PRESENT ER¬ 
ROR« gemeldet. Bei fehlendem Filenamen gibt es einen »MIS- 
SING FILENAME ERROR«. (Alexander Frink/bs) 
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Datasette 


COP — Hilfe 
für Datasette 

COP ist die Abkürzung für »Cassette 
Operations Program«. Es erleichtert 
den Umgang mit der eigenen Pro¬ 
grammsammlung auf Kassetten. 

COP ist ein Hilfsprogramm zur Verwaltung von Programm¬ 
sammlungen. Mit ihm können Sie Programme auf einer Data¬ 
sette leichter und schneller finden und bei Bedarf ein Inhalts¬ 
verzeichnis einer Kassettenseite ausdrucken. 

COP besteht aus zwei Teilen: Einem Hauptprogramm, das 
auf einer separaten Kassette gespeichert werden kann, und 
den Datensätzen für die einzelnen Kassetten-Seiten, die zur 
einfacheren Handhabung am Anfang jeder Kassettenseite ab¬ 
gelegt werden sollten. 

Nach dem Starten des Programms mit »RUN« erscheint ein 
Menü auf dem Bildschirm, dessen einzelne Punkte hier erklärt 
werden: 

1) Anfänge ermitteln 

In diesem Programmpunkt können Sie die Programme einer 
Kassette katalogisieren. Zunächst geben Sie bitte den Namen 
und die Seite der Kassette ein. Danach wird nach den Titeln 
der einzelnen Programme gefragt. Hier können Sie auch per¬ 
sönliche Zusätze angeben wie zum Beispiel Zählerstand oder 
Fast-Tape, da der eingegebene Titel nicht mit dem Namen des 
Programms auf der Kassette übereinstimmen muß. Haben Sie 
alle Titel eingegeben, tippen Sie bitte ein »* « als Endekennzei¬ 
chen ein. 

Nun wird die zu katalogisierende Kassette im zurückgespul¬ 
ten Zustand eingelegt und immer bis zum jeweiligen Programm 
vorgespult. Dann drücken Sie die STOP-Taste. Zu diesem 
Zweck sollte man sich vorher den Stand des Zählwertes der 
einzelnen Programme notiert haben. Dies geschieht fortge¬ 
setzt bis zum letzten Programm, dann wird wieder zum Ein¬ 
gangsmenü zurückgesprungen. 

2) Programm suchen 

Nach der Anzeige des Kassettennamens und der Seite kön¬ 
nen die Programmnamen mit der Leertaste durchgeblättert 
werden. Hat man das zu suchende Programm gefunden, 
drückt man die Taste »RETURN«. Nun spult man die Kassette 
vor, der Computer stoppt den Spulvorgang automatisch kurz 
vor dem Programm. Drücken Sie nun »Stop« und »Play« an der 
Datasette, und das gewünschte Programm wird automatisch 
geladen. COP wird dabei gelöscht. 

3) Zeiten abspeichern 

In diesem Programmteil werden alle erstellten Daten 
(Kassetten- und Programmnamen und Zeit zum Stoppen) in ei¬ 
nem Datensatz gespeichert. Dies kann zum Beispiel am An¬ 
fang der zu bearbeitenden Kassette geschehen. Dann sollte 
man das erste Programm allerdings nicht direkt am Anfang des 
Bandes speichern, da es dann den Datensatz überschreibt 
oder umgekehrt. Am praktikabelsten hat sich ein Vorspulen bis 
zum Zählwerksstand »30« erwiesen, bevor man das erste Pro¬ 
gramm speichert. 

4) Zeiten laden 

Hier werden die unter Punkt 3 abgespeicherten Datensätze 
wieder geladen. 

5) Verzeichnis ausdrucken 

Zunächst erscheinen die ersten 14 der auf der Kassette be¬ 
findlichen Programme auf dem Bildschirm. Mit der Leertaste 
kann zu den nächsten 14 weitergeblättert werden. Wurden al¬ 
le Programme aufgelistet, kann man sich das komplette Ver¬ 


zeichnis auf dem Plotter 1520 ausgeben lassen. Eine Anpas¬ 
sung an andere Drucker dürfte überhaupt kein Problem sein, 
da keine druckerspezifischen Befehle verwendet werden. Ein¬ 
zig und allein der OPEN-Befehl in Zeile 5160 muß entspre¬ 
chend des vorhandenen Druckers geändert werden. 

Noch einige Hinweise: Das Programm ist auf 30 Titel pro 
Kassette beschränkt, mehr sind auf einer Kassette kaum sinn¬ 
voll. »Turbo-Tape«-Benutzer müssen noch die Zeile 2200 än¬ 
dern. Dort wird das Eintippen der Tastenkombination 
»SHIFT/LOAD« simuliert, um das angewählte Programm zu la¬ 
den, was mit manchen »Turbo-Tape«-Versionen nicht funktio¬ 
niert. Am allereinfachsten wird dort nur der END-Befehl einge¬ 
setzt und der LOAD-Befehl dann von Hand eingegeben. 

Für diejenigen, die das Programm verändern wollen, hier 


noch eine Variablenliste: (Hubertus Luhmann/bs) 

Variablenliste: 

A$ 

Eingabe über GET 

C$ 

Kassettennummer 

CSS 

Kassettenseite 

PP$(Q) 

laufende Programmtitel 

Q 

Zählervariable 

PS/PIS 

Play/Play löschen 

F$/F1$ 

FFwd/FFwd löschen 

s$/si$ 

Stop/Stop löschen 

RS/RI $ 

Record/Record löschen 

ZS/ZI $ 

Rewind/Rewind löschen 

PRS/PLS 

Anzeige »Programm:«/PR$ löschen 

Ql 

Höchste Anzahl Programme 

Q2 

Höchste Anzahl Programme und 
Sternchen (Q2=Q1 + 1) 

TI$(Q) 

Zeitvariable 

T1$(Q) 

jnLinnfci 

Zwischenspeicher der Zeitvariablen 


10 DIM TI*(30):DIM PPS(30):DIM Tl$<30> 

20 Q=0:T1*=TI$ 

30 PRINT CHR*<147>:POKE 53280,0:POKE 53281 

40 REM ******* MENUE ****************** 

50 PRINT TAB(8)CHRS(18)" CASSETTEN - DIREC 
TORY ";CHRS(146) 

60 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"AUS 
WAHLMQEBLICHKEITEN:" 

70 PRINT:PRINT:PRINT:PRINT"1 - ANFAENGEI5S 
PACE)ERMITTELN -1" 

80 PRINT:PRINT"2 - PROGRAMMI8SPACE}SUCHEN 
_ 2" 

90 PRINT:PRINT"3 - ZEITEN<5SPACE>ABSPEICHE 
RN - 3“ 

100 PRINT:PRINT“4 - ZEITENtBSPACEJEINLADEN 

- 4" 

110 PRINT:PRINT"5 - VERZEICHNIS AUSDRUCKEN 

- 5" 

120 PRINT:PRINT:PRINT:PRINT"BITTE TASTE DR 
UECKEN !” 

130 GET AS:IF AS=""THEN 130 
140 ON VAL(AS)GOTO 1000,2000,3000,4000,500 
0 

150 GOTO 130 

200 REM *** UNTERPROGRAMME ************ 

210 REM * TASTATUR ZEICHNEN * 

220 PRINT “ 

230 PRINT" £CLR,SPACE > R«»*»»»«».»»«»»»»*»»*« 

240 FOR Q=1 TO 13 
250 PRINT" = <36SPACE> = " 

260 NEXT Q 

270 PRINT" n '.*_»_»>_****»*».****_*********»»**• *• 
.«.».**.**P " 

280 PRINT" = RECORD^PLAY^REWINDrFFWD^STaP- 
EJECT - 

290 PRINT" 7 ?.*j*-*-*-*.*-*-L*-*.*-*.~*~-*-».*.*.*-*-~*~-»-**-*.~*~.*-*.»*.+ 

»««»»»P 11 

300 FOR <3=1 TO 4 

310 PRINT" = C7SPACE> = t4SPACE>-<6SPACE} = <4S 
PACEJ = t4SPACE> = <6SPACE> = 

320 NEXT Q 


<058> 

<075> 

<047> 

<050> 

< 173> 
<037 > 
<014> 
<038> 

< 151 > 
<137> 
<026> 

<041 > 

< 195> 

<052> 

< 126> 
<040> 
<233> 
<083> 

<064> 

<197> 

< 145> 

< 154> 

< 138> 

<087> 

<117) 

<082> 

< 187> 
<214> 


Das Listing zu »COP«. Bitte beachten Sie die Eingabehin¬ 
weise auf Seite 6. 
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Datasette 













< 195> 

2120 

2130 

340 R*="CHOME,19D0WN,3RIGHT JTttTtt" 

<012> 

2150 

350 Rl*="<HOME,19D0WN,3RIGHT,6SPACE>" 

<050 > 

2160 

360 P*="(HOME,19DQWN,10RIGHT>tttT" 

< 166) 

2170 

370 P1*="CHOME,19D0WN,10RIGHT,4SPACE >" 

<083 > 

2180 

374 Z*="CHOME,19DQWN,15RIGHT>tttTTT" 

<041 > 

2190 

376 Z1*="CHOME,19D0WN,15RIGHT,6SPACE>" 

< 148) 

2200 

380 F*="CHOME,19D0WN.22RIGHT)tftt" 

<230) 


390 F1*="CHOME,19D0WN,22RIGHT,4SPACE>" 

<20B> 

3000 

400 S*= "CHOME,19D0WN,27RIGHT > t T T t" 

<062) 

3010 

410 Sl*="CHOME,19D0WN,27RIGHT,4SPACE>" 

< 102) 

3020 

420 PRINT"CHOME,2D0MN,3RIGHTJCASSETTE:"; C* 

< 197) 

3030 

430 PRINT"CHOME,3D0WN,3RIGHT,3SPACE>SEITE: 


3040 

" 5 CS* 

<028> 

3050 

440 PR*="CHOME,6D0WN,3RIGHT > PROGRAMM :" 

< 186> 

3055 

445 PL*="CHOME,6D0WN,3RIGHT,35SPACE > " 

< 115> 


450 RETURN 

<254> 

3060 

460 REM UNTERPROGRAMM ZEIT 

<250> 

3070 

470 TI*=T1* 

<220> 

3080 

480 RETURN 

<028> 

3090 

500 T1*=TI* 

<069> 

3100 

510 RETURN 

<058> 

3110 

1000 REM *** ANFAENGE ERMITTELN ******* 

< 117> 

3120 

1010 PRINT CHR*(18) " CCLR,SPACE)ANFAENGE ER 


3130 

MITTELN ";CHR*(146) 

<022> 

3140 

1020 PR I NT : PRINT : PRINT : INPUT " WELCHE CASSET 


3150 

TE "; C* 

<211 > 

4000 

1030 INPUT"WELCHEC4SPACEJSEITE "; CS* 

<254> 

4010 

1040 PRINT:PRINT"BITTE GEBEN SIE DIE PROGR 


4030 

AMME EIN:" 

<210> 

4040 

1050 Q=Q+1 

<178) 

4050 

1060 FRINT " PROGRAMMQINPUT PP*(Q) 

<227> 

4055 

1070 IF PP*(Q)="*"THEN 1090 

< 155> 


1080 GOTO 1050 

< 164) 

4060 

1090 REM *** ZEIT ERMITTELN *********** 

<023> 

4065 

1200 PRINT“CCLR)“:Q1=Q-1 

< 145 > 

4070 

1210 GOSUB 200 

< 146> 
<025> 
<009> 

4080 

1220 IF(PEEK ( 1 ) AND 16)—16 THEN 1250 

1230 IF(PEEK(1)AND 16)=0 THEN PRINT S$ 

410u 

1240 WAIT 1,16,255—16:PRINT Sl* 

< 131 > 

4110 

1250 FOR Q=1 TO 01 

<205> 

4120 

1260 PRINT PL*:PRINT PR*;PP*(Q) 

< 170> 

4130 

1270 PRINT F* 

<216> 

4140 

1275 GET A* 

<213> 

4150 

1280 IF(PEEK(1)AND 16)=0 THEN GOTO 1290 

< 148> 

5000 

1285 IF A*=“"THEN 1275 

<085> 

5010 

1290 IF 0=1 THEN TI*="000000":IF 0=1 THEN 


5020 

Tl*="000000" 

< 146) 


1291 GOSUB 460 

<085> 

5030 

1292 PRINT Fl*:PRINT S* 

<058> 

5040 

1295 BET A* 

<235> 

5050 

1300 IF(PEEK(1 ) AND 16)=16 THEN 1310 

<093> 

5055 

1305 IF A*=""THEN 1295 

< 121 > 

5060 

1310 GOSUB 500 

<016> 

5070 

1315 TI*(Q)=T1* 

<054> 

5080 

1320 PRINT Sl*:NEXT Q 

<233> 

5090 

1330 PRINT Z*:PRINT PL*:PRINT PR*;“ENDE" 

<103) 


1340 GET A* 

<024> 


1350 IF(PEEK ( 1 > AND 16)=0 THEN GOTO 1365 

<248> 

5100 

1360 IF A*=""THEN 1340 

<060> 


1365 PRINT ZI*:PRINT S* 

<035> 

5110 

1370 GET A* 

<054> 

5120 

1380 IF(PEEK(1)AND 16)=16 THEN 1400 

< 171 > 

5130 

1390 IF A*=“ "THEN 1370 

< 114) 

5140 

1400 GOTO 30 

<068) 

5150 

2000 REM *** PROGRAMM SUCHEN ********** 

<250> 

5160 

2010 GOSUB 200:0=0 

<000> 

5170 

2020 0=0+1:IF Q=Q1+1 THEN 2075 

< 190) 


2030 PRINT PL*:PRINT PR*;PP*(Q) 

<178) 

5180 

2040 GET A*:IF A*=“"THEN 2040 

<217) 

5190 

2050 IF A*=CHR*(32)THEN 2020 

<044> 

5200 

2060 IF A*=CHR*(13)THEN 2080 

< 184> 

5210 

2070 GOTO 2040 

< 114> 

5220 

2075 0=0:GOTO 2020 

<030> 

5230 

2080 PRINT F* 

< 117) 

5240 

2090 GET A* 

<012) 

5250 

2100 IF(PEEK(1)AND 16)=0 THEN 2115 

<144) 

5260 

2110 IF A*=“ "THEN 2090 

<078> 


2115 T1*(Q)=TI*(Q) 

<242> 

© G4 


TI*="000000":PRINT Fl* 

IF TI* <Q)< >TI*THEN 2130 
POKE 192,1:PÜKE l,PEEK(l)OR 32 
PRINT S* 

GET A* 

IF(PEEK <1)AND 16)=16 THEN 2200 
IF A*=""THEN 2170 

PRINT CHR*(147):PQKE 198,1:P0KE 631,1 
31:END 

REM *** ZEITEN ABSPEICHERN ******* 

GOSUB 200 

PRINT R*:PRINT K* 

PRINT P* 

PRINT:PRINT:0=0:02=01+1 
OPEN 1,1,1,"DIRECTORY“ 

PRINT#1,C*:PRINT#1,CS*:PRINT#1,Q2:PRI 
NT#1,Ql 

FOR 0=0+1 TQ Q2 
PRINT#1,PP*(Q> 

PRINT#1,TI*(Q) 

NEXT Q 
CLOSE 1 

PRINT S*:PRINT P1*:PRINT RI* 

GET A* 

IF(PEEK(1)AND 16)=16 THEN 3150 
IF A*=""THEN 3120 
GOTO 30 

REM *** ZEITEN EINLADEN ********** 
GOSUB 200 
PRINT P* 

PRINT:Q=0 

OPEN 1,1,0,"DIRECTORY" 

INPUT#1,C*:INPUT#1,CS*:INPUT#1,Q2:INP 

UT#1,Q1 

Q=Q+1 

IF Q=Q2 THEN 4100 
INPUT#1,PP*(Q) 

INPUT#1,TI*(Q) 

GOTO 4060 
CLOSE 1 

PRINT S*:PRINT PI* 

GET A* 

IF(PEEK(1)AND 16)=16 THEN 4150 
IF A*=""THEN 4120 
GOTO 30 

REM *** VERZEICHNIS AUSDRUCKEN *** 
PRINT CHR*(147):Q=0 
PRINT TAB(10)CHR*(18) 

CHNIS 11 ; CHR* (146) 

PRINT:PRINT"CASSETTE: 

PRINT"<3SPACE>SEITE: 

0=Q+1:IF Q=Q1+1 THEN 5100 

IF Q=15 THEN GOTO 5080 

PRINT"PROGRAMM “;Q;"=";PP*(Q) 

GOTO 5050 

GET A*:IF A*= ,,U THEN 5080 
IF A*=CHR*(32)THEN PRINT CHR*(19):PRI 
NT:PRINT:PRINT:PRINT:PRINT:Q=15:GOTO 
5060 

PRINT"******************************* 

********" 

PRINT"A = AUSDRUCKC6SPACE>M = MENUE" 

GET A*:IF A*=""THEN 5120 

IF A*="M"THEN 30 

IF A*="A"THEN 5160 

GOTO 5120 

OPEN 1,6 

PRINT#1, “******** V 
S ********" 

0=0:PRINT#1:PRINT#1 
PRINT#1,"CASSETTE: ";C* 

PRINT#1,"C3SPACEJSEITE: ";CS* 

PRINT#1 

Q=Q+1:IF Q=Q1+1 THEN 5250 
PRINTttl,"PROGRAMM ";Q;"=";PP*(Q> 

GOTO 5220 
CLOSE 1 
GOTO 30 


PROGRAMMVERZEI 

";C* 

:CS*:PRINT 


E R Z E I C H N I 


<213> 

<228> 

<086> 

< 194> 
<092> 
<206> 

< 146> 

<091 > 
< 022 > 
<168> 

< 146> 
< 022 > 
<091 > 

< 141 > 

< 193> 
<063> 
<095) 
<041 > 

< 190) 
<063) 
<214) 
<026) 
<159) 
<042) 
<040) 
<078> 

< 152> 
<006> 
<148> 
<253> 

< 192> 

< 138) 
<066> 
<255> 

< 199> 
<180) 
<047> 

< 190> 
<010> 

< 144> 
<028> 
<024> 

< 194) 
<038> 

<052> 
<221 > 
<029> 

< 109> 

< 133> 
<223> 
<120> 
<051 > 


< 118> 

<05B> 

<246> 

< 154) 
<238> 

< 107) 

< 122 ) 
<223> 

<236> 

< 117> 
<092> 
< 220 > 
<109) 
<047> 

< 149> 
<228> 

< 181 > 
< 118> 


Listing zu »COP« (Schluß) 


38 






C 64 


Datasette 


So stellt man 
die Datasette 
ein! 

Die Fehlermeldung »LOAD ERROR« 
weist meistens auf eine defekte Kas¬ 
sette oder einen dejustierten Tonkopf 
hin. Dieser läßt sich allerdings mit ei¬ 
nem Schraubenzieher einstellen. 

Wer mit seiner Datasette Programme eines anderen Data- 
setten-Besitzers laden will, der erlebt nach Eingabe des LOAD- 
Befehls oft die bizarrsten Dinge. Neben einem lapidaren »LOAD 
ERROR«, kann man andere Fehlermeldungen wie »OUT OF 
MEMORY ERROR« erhalten, aber auch Meldüngen wie 
»FOUND A!.;$Y&«, (meist folgt dann innerhalb von Sekunden 
ein »LOAD ERROR«), Wenn es ganz schlimm kommt, stürzt der 
Computer auch noch ab und läßt sich nur mit einem Reset zu 
einem weiteren Ladeversuch bewegen, der dann allerdings 
ähnlich effektvoll endet. 

Hier gibt es mehrere mögliche Fehlerursachen: die Kassette 
ist defekt, der Tonkopf ist verstellt oder die elektromagneti¬ 
schen Störstrahlungen eines Fernsehers oder Monitors ver¬ 
hindern einen einwandfreien Betrieb. Das letzte Problem läßt 
sich lösen, wenn man die Datasette bis auf maximale Kabellän¬ 
ge vom Fernseher während dem Laden entfernt. Sollte die Kas¬ 
sette defekt sein, hilft nur eine Sicherheitskopie. Am häufig¬ 
sten tritt allerdings der zweite Grund, ein dejustierter Tonkopf, 
auf. Im folgenden soll beschrieben werden, wie man seinen 
Tonkopf kurzzeitig auf ein anderes Programm einstellen kann. 
Eine komplette, einwandfreie Einstellung läßt sich allerdings 
nur mit einem kleineren Bastelaufwand erreichen. Wir werden 
im 64’er, Ausgabe 10/85, eine Schaltung vorstellen, mit der die 
Datasette auf jede Kassette optimal justiert werden kann. Will 
man aber nur ein Programm laden, das man aufgrund einer fal¬ 
schen Einstellung leider nicht laden kann, reicht das folgende 
Verfahren aus: 

Versuchen Sie, das Programm zu laden. Sollte der Computer 
überhaupt nichts auf der Kassette finden (Bildschirm bleibt 
hellblau, Datasette stoppt nicht, keine »FOUND ...«-Meldung), 
dann sollten Sie vorerst lieber auf das Programm verzichten. 
Die Tonkopfeinstellung, mit der dieses Programm gespeichert 
wurde, und die ihrer Datasette unterscheiden sich dann so er¬ 
heblich, daß es einerseits sehr lange dauert, den Tonkopf ohne 
Zusatzhardware einzustellen, Sie andererseits aber minde¬ 
stens die gleiche Zeit brauchen, ihre eigene Tonkopfeinstel¬ 
lung wiederzufinden. 

Sollte der Computer etwas auf dem Band finden, dann läßt 
sich die Dejustierung des Kopfes in drei Klassen einteilen: 

— Der Computer meldet sich mit »FOUND filename«, lädt eini¬ 
ge Sekunden bis Minuten und meldet dann einen »LOAD 
ERROR«: Entweder ist der Tonkopf nur sehr leicht verstellt 
oder die Kassette ist defekt. 

— Der Computer meldet sich mit »FOUND filename« und so¬ 
fort mit »LOAD ERROR« oder »OUT OF MEMORY ERROR« 
oder einer anderen Fehlermeldung: Der Tonkopf ist etwas 
mehr verstellt als im ersten Fall, allerdings immer noch nicht 
sehr. 


— Der Computer meldet sich mit »FOUND irgendwas«, wobei 
»irgendwas« meist aus Grafikzeichen und Farbumschaltungen 
besteht, meldet sofort oder später einen Fehler oder stürzt ir¬ 
gendwann ab: Der Tonkopf ist mittelstark verstellt und dürfte 
sich ohne Zusatzhardware noch richten lassen. 

Bei der Tonkopfeinstellung tut man sich erheblich leichter, 
wenn man die Datasette aufschraubt. Lösen Sie also den 
Stecker der Datasette vom Computer, nehmen Sie eine in der 
Datasette liegende Kassette heraus und lösen Sie die vier 
Schrauben an der Unterseite. 

Nehmen Sie dann das Oberteil des Gehäuses ab. Ziemlich 
genau in der Mitte der Mechanik befindet sich der Tonkopf. Er 
ist mit zwei Schrauben an der Mechanik befestigt (siehe Bild). 
Mit der linken Schraube läßt sich die Einstellung des Tonkop¬ 
fes vornehmen. Drehen Sie niemals an der rechten Schraube! 

Bevor Sie nun wild an der linken Schraube herumkurbeln, 
sollten Sie sich die jetztige Position merken. Die Schraube hat 
einen langen und einen kurzen Schlitz. Merken Sie sich die Po¬ 
sition des langen Schlitzes am besten wie die Zeiger einer Uhr. 
Steht der beispielsweise senkrecht, kann man das als zwölf 
Uhr interpretieren. Vergessen Sie diese Einstellung nicht, 
sonst müssen Sie nachher stundenlang herumprobieren, bis 
Sie Ihre eigenen Kassetten laden können. 

Legen Sie nun die Kassette mit dem Programm, das Sie la¬ 
den wollen, ein. Verdrehen Sie die linke Kopfschraube ein we¬ 
nig (maximal um ein bis zwei »Stunden«). Es ist egal in welche 
Richtung Sie drehen, Sie sollten sie sich nur merken. Machen 
Sie wieder einen Ladeversuch. Es gibt jetzt drei Möglichkei¬ 
ten: 

— Es hat sich überhaupt nichts geändert: Verdrehen Sie die 
Schraube wieder um ein bis zwei »Stunden« in dieselbe Rich¬ 
tung und machen Sie einen erneuten Ladeversuch. 

— Der Fehler ist, gemäß der oben gemachten Abstufungen, 
kleiner geworden: Verdrehen Sie die Schraube wieder um ein 
bis zwei »Stunden« in dieselbe Richtung und machen Sie ei¬ 
nen erneuten Ladeversuch. 

— Der Fehler ist, gemäß der oben gemachten Abstufung, 
größer geworden oder der Computer findet gar nichts mehr: 
Drehen Sie in die Ausgangsstellung zurück und probieren Sie 
es nochmal in der anderen Richtung. 

Sollten Sie irgendwann das Programm fehlerfrei laden kön¬ 
nen: Herzlichen Glückwunsch! Drehen Sie nun die Schraube 
wieder in ihre Ausgangsstellung zurück und speichern Sie das 
Programm. 

Ein letztes Mal sei hier auf die kleine Schaltung in Ausgabe 
10/85 verwiesen, mit der sich jede Datasette exakt auf jede 
noch so verstelltaufgenommene Kassette in wenigen Minuten 
einstellen läßt. (bs) 


Tonkopf 



Einstellschraube 


Schematische Darstellung der Tonkopfaufhängung 
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Datasette 


Turbo Tape 
de Luxe 

Machen Sie Ihrer Datasette Beine: Mit 
diesem Programm wird sie sogar et¬ 
was schneller als das Floppy-Lauf- 
werk. 

Datasettenbesitzer müssen eigentlich gemütliche Leute 
sein. Bis zu zwanzig Minuten kann es nämlich dauern, wenn 
man ein umfangreiches Programm laden will. Viele Leute ha¬ 
ben deswegen schon schnelle Lade- und Speicherroutinen 
geschrieben, die die Datasette um Faktoren zwischen 5 und 
15 beschleunigen. Am bekanntesten und verbreitetsten ist 
das Programm »Turbo Tape«. 

Das hier abgedruckte Programm »Turbo Tape de Luxe« (siehe 
Listing) zeichnet sich vor anderen Schnelladesystemen durch 
folgende Punkte aus: 

— Es ist kompatibel zu »Turbo Tape«, kann also mit »Turbo Tape« 
gespeicherte Programme lesen. Daraus folgt, daß der Kas¬ 
settenbetrieb um den Faktor 10 (wie bei »Turbo Tape«) be¬ 
schleunigt wurde. Das ist immerhin sogar etwas schneller als 
das Floppy-Laufwerk 1541 (ohne Hypra-Load). 

— Es arbeitet nicht mit neuen Basic-Befehlen, sondern mit ei¬ 
nem Eingabemenü, so daß keine Konflikte mit Basic-Erweite¬ 
rungen entstehen können. 

— Das Basic-ROM kann während des Betriebs abgeschaltet 
werden, so daß auch Programme, die teilweise unter dem 
Basic-ROM liegen (lange Spiele und ähnliches), gespeichert 
werden können. 

— Das Programm schützt sich selbst vor dem Überladen durch 
andere Programme. 

— Es können beliebige RAM-Bereiche gespeichert werden. 

— Programme können codiert und decodiert werden, damit 
kein Unbefugter Zugriff auf die Programme hat. 

— Mit Hilfe des SMON kann das Programm in beliebige Spei¬ 
cherbereiche geschoben und sogar in ein EPROM gebrannt 
werden. 

Nach dem Abtippen mit dem MSE und Speichern des Pro¬ 
gramms, kann es mit »SYS 49152« gestartet werden. Vorher 
sollten Sie jedoch NEW eingeben. Das Hauptmenü erscheint 
dann sofort und wartet auf eine Eingabe. Mit der Taste »Q« kann 
man dieses Menü wieder verlassen und dann später mit dem 
Befehl »£T« wieder ins Menü zurückkehren. Damit dies funktio¬ 
niert, wird allerdings ein Basic-Vektor verbogen, der von vielen 
Basic-Erweiterungen benutzt wird und somit eine Zusammen¬ 
arbeit mit »Turbo Tape de Luxe« völlig unmöglich macht. Soll die¬ 
ser Vektor nicht verbogen werden, muß »Turbo Tape de Luxe« 
mit »SYS 49164« gestartet werden. An den Menüfunktionen 
hat sich nichts geändert, allerdings kann nach dem Verlassen 
mit »Q« nicht mehr mit »£T« ins Menü zurückgesprungen wer¬ 
den, sondern nur mit dem angegebenen SYS-Befehl. 


Die Kommandos 


Doch nun zur Erklärung der einzelnen Menü-Kommandos: 

L — Load 

Nach dem Drücken der Taste »L« wird vom Benutzer die Ein¬ 
gabe des Namens des zu ladenden Programmes verlangt. Soll 
das nächstbeste Programm geladen werden, darf der Name 
weggelassen werden. Ebenso ist eine Angabe mit Abkürzung 
(Joker) (»*«) erlaubt (Beispiel: »TUR*«). Da bei fast jeder Pro¬ 
grammoption ein Filename angegeben werden muß, wird im 
einzelnen nicht mehr darauf hingewiesen. 


Nachdem das Programm gefunden wurde, werden Name 
und Adressen des Programmes angezeigt und auf einen Druck 
auf die Commodore-Taste gewartet. Wird diese Taste nicht ge¬ 
drückt, wird nach zirka acht Sekunden der Ladevorgang fort¬ 
gesetzt. 

P — Proload 

Mit dieser Funktion können sowohl Basic-, wie auch 
Maschinensprache-Programme geladen und automatisch ge¬ 
startet werden. Ist das eingeladene Programm ein Basic- 
Programm, wird der »RUN«-Befehl simuliert. Ist das geladene 
Programm hingegen ein Maschinen-Programm, wird es nach 
dem Laden an der Anfangsadresse gestartet. Dies funktioniert 
nicht bei allen Maschinen-Programmen! 

V — Verify 

Mit Verify kann ein abgespeichertes Programm mit dem im 
Speicher befindlichen verglichen werden. 

S — Save 

Speichert das im Speicher vorhandene Basic-Programm. 

A — Allsave 

Speichert beliebige RAM-Bereiche ab. Die Start- und End¬ 
adresse müssen in hexadezimaler Form angegeben werden. 
Beim Laden wird das Programm wieder an diese Adressen zu¬ 
rückgeladen. 

O — Original 

Speichert RAM-Bereiche so ab, daß sie später an andere 
Adressen geladen werden. Als erstes müssen Sie die Adres¬ 
sen angeben, an die das Programm später geladen werden 
soll. Danach geben Sie die Adressen an, an denen sich das 
Pro'_,,T.mm jetzt befindet. Zum Schluß folgt, wie bei allen Save- 
Befehlen, der Filename. 

R — Renew 

Holt ein durch »NEW« oder einen Reset gelöschtes Basic- 
Programm wieder zurück. 

K — Kill 

Zerstört »Turbo Tape de Luxe« und »biegt« die Vektoren wie¬ 
der gerade. Zum Neuaufruf muß es erneut geladen werden. 

M — Monitor 

Löscht den Bildschirm und startet einen Maschinen¬ 
sprache-Monitor, sofern dieser im Speicher vorhanden ist. Da¬ 
mit individuelle Monitore verwendet werden können, muß die 
Einsprungadresse in $C52C/$C52D angepaßt werden. Ist 
kein Monitor vorhanden, kann das Programm abstürzen! 

C — Code 

Codiert, einen Speicherbereich nach Adressenangabe. Das 
so codierte Programm kann gespeichert und später wieder 
geladen und decodiert werden. 

D — Decode 

Decodiert einen bestimmten Speicherbereich. 

Wer sich einen individuellen Code erstellen möchte, damit 
außer ihm niemand Zugriff auf die Programme hat, muß folgen¬ 
de zwei Speicherstellenpaare ändern: 

CODE1 : C591 und C59C 
CODE2 : C594 und C59A 

In den beiden Speicherstellen eines Paares muß immer das¬ 
selbe Byte stehen! 

Q — Quit 

Verläßt das »Turbo Tape de Luxe«-Menü und springt zurück 
in Basic. 
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af 

ba 

df 

df 

df 

df 

00 

af 

e4 

c690 

8 

ad 

ba 

ac 

ac 

df 

ad 

ba 

bc 

2b 

c698 

8 

b0 

ad 

bb 

df 

d9 

df 

af 

b3 

cc 

c 6 a 0 

8 

be 

a6 

df 

b0 

bl 

df 

ab 

be 

05 

c6a8 

8 

af 

ba 

00 

df 

df 

df 

df 

df 

ed 

c 6 b 0 


df 

df 

df 

af 

ad 

ba 

ac 

ac 

29 

C6b8 

8 

df 

ac 

af 

be 

bc 

ba 

df 

df 

92 

c6c0 

8 

df 

df 

df 

df 

df 

df 

00 

df 

3f 

c6c8 

8 

df 

df 

df 

df 

b3 

b0 

be 

bb 

be 

c6d0 

8 

df 

b2 

ba 

b2 

b0 

ad 

a6 

df 

e0 

c6d8 

: 

ba 

ad 

ad 

b0 

ad 

df 

df 

df 

03 

c 6 e 0 

8 

df 

df 

00 

df 

df 

df 

df 

df 

el 

c6e8 

8 

df 

df 

df 

df 

df 

b3 

b0 

be 

Bb 

c6f 0 

8 

bb 

df 

df 

df 

df 

df 

df 

df 

cb 

c6f 8 


df 

df 

df 

df 

df 

df 

00 

df 

77 

c700 


df 

df 

df 

df 

df 

df 

df 

a9 

92 

C708 

8 

ba 

ad 

b6 

b9 

a6 

df 

df 

df 

26 

c710 

8 

df 

df 

df 

df 

df 

df 

df 

df 

0f 

c71B 

: 

df 

df 

00 

e2 

e2 

e2 

e 2 

e 2 

da 

c720 


e 2 

e 2 

e 2 

e2 

e2 

e 2 

e2 

e 2 

lf 

c72B 


e 2 

df 

b0 

b4 

df 

df 

df 

df 

f 9 

C730 


df 

df 

df 

df 

df 

df 

00 

e2 

b5 

c738 


e2 

e2 

e 2 

e 2 

e 2 

e2 

e2 

e 2 

37 

c740 


e2 

e 2 

e 2 

e 2 

e 2 

df 

ba 

ad 

lc 

C74B 


ad 

bB 

ad 

df 

df 

df 

df 

df 

fl 

C750 


df 

df 

00 

df 

df 

df 

df 

bb 

0f 

C758 


b0 

bl 

ba 

df 

dl 

dl 

dl 

df 

3e 

c760 


af 

ad 

ba 

ac 

ac 

df 

ac 

af 

06 

C768 


be 

bc 

ba 

df 

df 

df 

00 

6c 

05 

c770 


60 

ed 

df 

df 

df 

df 

ab 

df 

26 

C778 


aa 

df 

ad 

df 

bd 

df 

b0 

df 

d6 

c7B0 


df 

ab 

df 

be 

df 

af 

df 

ba 

75 

c78B 


df 

df 

bb 

df 

ba 

df 

df 

b3 

d3 

c790 


df 

aa 

df 

a7 

df 

ba 

df 

df 

c4 

C798 


df 

df 

df 

df 

df 

df 

df 

df 

97 

C7a0 


df 

df 

df 

df 

df 

df 

df 

df 

9f 

C7a8 


df 

df 

df 

df 

df 

df 

df 

df 

a7 

c7b0 

8 

df 

df 

df 

df 

df 

df 

df 

df 

af 

c7bB 

8 

df 

df 

df 

df 

df 

df 

df 

df 

b7 

C7c0 

8 

df 

df 

61 

df 

df 

df 

df 

df 

lf 

c7c8 

: 

df 

a8 

ad 

b6 

ab 

ab 

ba 

bl 

a4 

c7d0 

s 

df 

bd 

a6 

df 

b5 

b0 

b7 

be 

71 

c7dB 

8 

bl 

bl 

ba 

ac 

df 

b8 

b0 

b3 

94 

C7e0 

8 

b0 

b2 

bd 

ba 

b4 

df 

df 

df 

39 

c7eB 

8 

df 

df 

df 

df 

df 

dt 

df 

df 

e7 

c7f 0 


df 

df 

df 

bl 

ba 

aa 

b2 

aa 

0e 

c7fB 

8 

ba 

bl 

ac 

ab 

ba 

ad 

d0 

bd 

03 

c800 

8 

ad 

be 

aa 

bl 

ac 

bc 

b7 

aB 

ce 

cB0B 

8 

ba 

b6 

b8 

df 

df 

df 

df 

df 

84 

c 810 

8 

df 

df 

df 

f 2 

f 2 

f 2 

df 

ed 

57 

cQlB 

8 

df 

df 

be 

bb 

ad 

ba 

ac 

ac 

cb 

c820 

8 

ba 

df 

df 

6d 

df 

df 

ed 

bd 

9f 

C828 

3 

ad 

df 

bd 

ba 

6d 

df 

df 

ed 

bd 

c830 

3 

df 

df 

df 

df 

df 

b9 

b6 

b3 

01 

c838 

3 

ba 

bl 

be 

b2 

ba 

df 

df 

df 

bb 

cB40 

8 

df 

df 

f 2 

df 

4f 

3c 

3c 

3c 

08 

c848 

8 

3c 

3c 

3c 

3c 

3c 

3c 

51 

df 

e4 

c850 

8 

df 

4f 

3c 

4d 

3c 

51 

df 

df 

ld 

c85B 

8 

4f 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

6b 

cB60 

8 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

60 

cB6B 

3 

3c 

51 

df 

df 

3d 

df 

df 

df 

53 

c870 


df 

df 

df 

df 

df 

df 

3d 

df 

e4 

C878 

8 

df 

3d 

df 

3d 

df 

3d 

df 

df 

bc 

CBB0 

3 

3d 

df 

df 

df 

df 

df 

df 

df 

dd 

cBBB 

8 

df 

df 

df 

df 

df 

df 

df 

df 

87 

c890 

8 

df 

3d 

df 

df 

52 

3c 

3c 

3c 

72 

c898 

3 

3c 

3c 

3c 

3c 

3c 

3c 

42 

df 

f 7 

c8a0 

8 

df 

52 

3c 

4e 

3c 

42 

df 

df 

96 

c8a8 

8 

52 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

be 

cBb0 

8 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

b0 

c8bB 

8 

3c 

42 

f 2 

f 2 

f 2 

f 2 

c3 

b3 

6d 

c 8 c 0 

8 

cl 

b0 

be 

bb 

dt 

c5 

df 

c3 

33 

c8c8 


a9 

cl 

ba 

ad 

b6 

b9 

a6 

df 

4a 

C8d0 

8 

df 

c5 

df 

c3 

af 

cl 

ad 

b0 

23 

c8dB 


b3 

bB 

be 

bb 

df 

c5 

df 

c3 

3d 


Listing zu »Turbo Tape de Luxe«. 
Beachten Sie bitte die Eingabehin¬ 
weise auf Seite 8. 
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Datasette 




















c 8 e 0 

, 

ae 

cl 

aa 

b6 

ab 

df 

c3 

ac 

12 


c8e8 

: 

c 1 

be 

a9 

ba 

df 

c5 

df 

c3 

fd 


c8f 0 

: 

be 

cl 

b3 

b3 

ac 

be 

a9 

ba 

cf 


cBf 8 

: 

df 

c5 

df 

c3 

b0 

cl 

ad 

b6 

67 


c900 

: 

b8 

bl 

be 

b3 

df 

c5 

df 

c3 

ea 


c908 

: 

b4 

cl 

b6 

b3 

b3 

df 

c3 

bc 

84 


c910 

: 

c 1 

b0 

bb 

ba 

df 

c5 

df 

c3 

a3 


c91B 

s 

bb 

cl 

ba 

bc 

b0 

bb 

ba 

df 

8d 


C920 

: 

df 

c5 

df 

c3 

b2 

cl 

b0 

bl 

bl 


c92B 

: 

b6 

ab 

b0 

ad 

df 

c5 

df 

c3 

c9 


c930 

: 

ad 

cl 

ba 

bl 

ba 

a8 

f 2 

df 

lf 


c938 

: 

df 

df 

df 

df 

ed 

df 

df 

df 

1B 


c940 

: 

df 

df 

ac 

a6 

ac 

ab 

ba 

b2 

87 


c948 

: 

df 

b0 

ad 

bb 

ba 

ad 

ac 

d0 

cf 


c950 

: 

ba 

ad 

ad 

b0 

ad 

ac 

df 

df 

B2 


C958 

: 

df 

df 

df 

f 2 

df 

df 

df 

df 

b9 


c960 

: 

df 

4f 

3c 

3c 

3c 

3c 

3c 

3c 

Bd 

Listing 

c96B 

: 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

68 

c970 

s 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

70 

»Turbo Tape 
de Luxe« 

c97B 

: 

3c 

3c 

3c 

3c 

3c 

3c 

51 

ee 

32 

c980 

: 

62 

3d 

6e 

f 2 

df 

df 

df 

df 

b7 

c988 

: 

df 

3d 

f 2 

df 

df 

df 

df 

df 

fb 

(Schluß). 

c990 

: 

52 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

a6 

Beachten 

c998 

: 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

98 

c9a0 

: 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

3c 

a 0 

Sie bitte die 

c9a8 

c9b0 

: 

3c 

00 

3c 

ff 

3c 

00 

3c 

ff 

3c 

00 

42 

ff 

00 

00 

00 

ff 

6f 

b0 

Eingabehinweise 

c9b8 


00 

ff 

00 

ff 

00 

ff 

00 

ff 

b8 

auf Seite 8. 


± — Basic-ROM ein-/ausschalten 

Im »Turbo Tape de Luxe«-Menü. kann das Basic-ROM 
($AOOO-$BFFF) abgeschaltet werden, um Programme, Gra¬ 
fikbilder und anderes im RAM unter dem ROM aus diesem Be¬ 
reich speichern zu können. Der derzeitige Zustand des Basic- 
ROMs wird in dem Kästchen »BR« angezeigt. 

Die abgedruckte Version von »Turbo Tape de Luxe« liegt im 
Speicherbereich von $C000 bis $C9B0. Sie kann" mit dem 
SMON und seinem »C«-Befehl in beliebige Speicherbereiche 
geschoben werden, da alle verwendeten Sprungtabellen als 
BIT-Befehle getarnt sind. Genaueres zur Verwendung des »C«- 
Befehls beim SMON entnehmen Sie bitte der Anleitung zum 
SMON selbst (64’er, Ausgabe 11/84 bis 2/85). 

Wer will, kann »Turbo Tape de Luxe« nach dem Verschieben 
sogar in ein EPROM brennen. 

Sollte sich »Turbo Tape de Luxe« einmal mit »Load Memory 
Error« melden, dann haben Sie versucht, ein Programm zu la¬ 
den, das »Turbo Tape de Luxe« teilweise überschrieben und 
gelöscht und somit einen sauberen Systemabsturz heraufbe¬ 
schworen hätte. Diese Sicherheitsabfrage funktioniert auch in 
etwaigen verschobenen Versionen. (J. Golombek/bs) 
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C 64 


Floppy-DOS-Erweiteru ngen 


Floppy-Fehler 
ohne Rätsel 

Wer kennt ihn nicht, den bekannten 
Vierzeiler, mit dem der Fehlerkanal 
des Disketten-Laufwerks abgefragt 
wird? Mit diesem Programm zeigt der 
Computer automatisch an, welcher 
Fehler aufgetreten ist. 

Das Eintippen jenes berühmten Vierzeilers ist zwar ein einfa¬ 
ches, aber zeitraubendes Verfahren: 

10 OPEN 15,8,15 
20 INPUT # 15,A1,A2$,A3,A4 
30 PRINT AI,A2$,A3,A4 
40 END 

Immerhin sind ungefähr 56 Tasten zu drücken. Meistens ver¬ 
gißt der Anwender außerdem die Zeilen wieder zu löschen. Ei¬ 
ne Alternative besteht darin, das DOS 5.1 der Demodiskette zu 
laden. Doch stellte auch dies keine befriedigende Lösung dar. 
Es sind immer noch einige Tasten zu drücken. Eine bessere Lö¬ 
sung ist ein entsprechendes Maschinenprogramm (Listing). 
Der Fehlerkanal der Floppy wird selbständig vom Computer 
überwacht und bei Bedarf vollautomatisch eine Fehlermeldung 
ausgegeben. 

Das Programm ist ganz in Maschinensprache geschrieben. 
Nach dem Betätigen einer beliebigen Taste werden Sie aufge¬ 
fordert, die Startadresse einzugeben. Das Programm ist frei 
verschiebbar, die entsprechenden Änderungen werden vom 
Programm selbst durchgeführt. Zunächst werden Sie noch 
nichts bemerken, außer, daß sich der Computer mit einem 
READY wiedermeldet. Versuchen Sie aber nun einmal eine 
Fehlermeldung der Floppy zu erzeugen. Als Beispiel können 
Sie ein Programm von der Diskette laden, das es nicht gibt. Auf 
dem Bildschirm erhalten Sie sofort die entsprechende Fehler¬ 
meldung und die Aufforderung, eine Taste zu drücken. Die 
Funktionen des Computers sind um eine wichtige und nützli¬ 
che Fähigkeit erweitert worden. Außerdem arbeitet das Pro¬ 
gramm innerhalb von Basic-Programmen ebenfalls zuverläs¬ 
sig. Bei einem Fehler wird ein Programm nicht unterbrochen. 
Als weitere Besonderheit ist zu erwähnen, daß das Programm 
auch mit anderen Hilfsprogrammen zusammenarbeitet. Sie 
können zum Beispiel Hypra-Load oder das DOS 5.1 weiterhin 
benutzen. Das Programm wird durch Drücken der Run-Stop/ 
Restore-Taste unterbrochen. Ein erneuter Start ist jederzeit mit 
SYS (Startadresse) möglich. 

Funktionsweise des Programmes 

Zuerst werden die IRQ-Vektoren geändert. Der Computer ar¬ 
beitet dann bei jedem Interrupt das Programm ab. Dann findet 
eine Verzögerung statt, damit der Fehlerkanal nicht bei jedem 
Interrupt abgefragt wird. Danach wird geprüft, ob die Disket¬ 
tenstation arbeitet und wenn ja, wird die Routine verlassen. Als 
nächstes wird der Fehlerkanal abgefragt und geprüft, ob ein 
Fehler vorliegt. Ist dies der Fall, dann wird die augenblickliche 
Cursorposition zwischengespeichert und der Computer merkt 
sich den Inhalt der oberen drei Zeilen. Diese Zeilen werden 
dann gelöscht, der Cursor abgeschaltet, eine neue Schriftfar¬ 
be gewählt und die Fehlermeldung in reverser Schrift ausgege¬ 
ben. 

Anschließend wird die Aufforderung, eine Taste zu drücken, 
auf den Bildschirm geschrieben. Der Computer wartet dann so 
lange, bis eine Taste gedrückt wird. Dann wird der ursprüngli¬ 


che Bildschirminhalt wieder hergestellt, die alte Bildschirmfar¬ 
be ins Register gePOKEt und der Cursor auf den alten Platz 
gebracht. Das Programm benutzt insgesamt elf Unterroutinen 
des Betriebssystems. Die Farbe, in der die Fehlermeldung aus¬ 
gegeben werden soll, ist durch den Befehl POKE 
Startadresse+123, Farbcode veränderbar. Dem Programmie¬ 
rer ist mit diesem Programm ein sehr gutes Hilfsmittel in die 
Hand gegeben. (Georg Kramer/aw) 


0 REM ********************************* 
1 REM ** AUTOMATISCHE FEHLERMELDUNG ** 


2 

*T 

REM 

PPM 

** 

VON DER FLOPPY DISK 1541 

** 

4 

REM 

** 

WRITTEN BY GEORG KRAMER 

** 

5 

REM 

*# 

AUF DEM MOORE 15 

#* 

6 

REM 

#* 

4783 ANROECHTE 

** 

7 

REM 

** 

TEL.: 02947/3511 

#* 


9 REM ********************************* 

10 : 

20 PRINT CHR*<147> 

40 PRINT" 5 AUTO. FEHLERMELDUNG VON DER FL 
OPPY 3" 

50 PRINT" 5£££££££££££££mE£££££££££££££££ 
£££££Ä" 

60 PRINT SRC(88)"WRITTEN BY GEORG KRAMER" 
70 PRINT SPC(93)"<C) JUNI 1985":PRINT 
80 FOR 1=1 TO 40:PRINT"-";:NEXT 
90 PRINT SPC(44)"CRVSON,SPACE>ACHTUNG:{SPA 
CE,RVDFF,SPACE>FL0PPY EINSCHALTEN !" 

100 PRINT SPC <94) "« TASTE »" 

110 POKE 198,0 

120 GET A*:IF A*=""THEN 120 

130 : 

140 PRINT CHR*<147):PRINT:PRINT 
150 INPUT "<2SPACE,RVS0N>STARTADRESSE :tSP 
ACE,RVOFF,SPACE J49152 C7LEFT >";S 
160 FOR 1=0 TO 247:READ A:X=X+A 
170 P™"F S+I,A:NEXT 

180 Ir .{<>32204 THEN PRINT"DATEN—FEHLER !“ 
: END 

185 REM *** PROGRAMM ANPASSEN *** 

190 POKE S+7,(S+13)7256 

200 POKE S+2 , < S+13 ) -PEEK (S+7) *256 

202 POKE S+154,(S+218)/256 

204 POKE S+153,(S+218)-PEEK(S+154)*256 

210 SYS(S) 

220 PRINT CHR$(147):PRINT SPC<8>"<RVS0N,3S 
PACEIPROGRAMM AKTIVIERTC4SPACE>" 

230 PRINT SPC (8) " -CRVSON,SPACE>START: C3SPAC 
E >SYS"S"<LEFT,6SPACE}" 

240 PRINT SPC <8> " -CRVSON , SPACE>ENDE : RUN-S 
TOP/RESTORE “ 

250 END 

1000 REM *** MASCHINENPROGRAMM *** 

1001 DATA 120,169,13,141,20,3,169,192,141, 
21,3,88,96,230,182,240,3,76,49,234 

1002 DATA 165,144,201,66,240,8,165,144,201 
,128,240,2,208,239,169,255,162,8 

1003 DATA 160,15,32,186,255,169,0,32,189,2 
55,32,192,255,162,255,32,198,255 

1004 DATA 32,207,255,201,48,208,7,32,47,24 
3,8B, 76,49,234,72,165,211,141,168 

1005 DATA 2,165,214,141,178,2,162,0,189,0, 

4.157.132.3.232.224.120.208.245.162 

1006 DATA 0,169,32,157,0,4,232,224,120,208 
,246,32,102,229,169,207,240,252,169 

1007 DATA 1,133,204,173,134,2,133,189,169, 
1,141,134,2,169,1,133,199,104,32 

1008 DATA 210,255,32,207,255,32,210,255,16 

5.144.201.64.208.244.32.47.243.162 

1009 DATA 0,189,218,192,32,210,255,232,224 
,30,208,245,32,135,234, 165,203,201 

1010 DATA 64,240,247,165,189,141,134,2,162 
,0,162,0,189,132,3,157,0,4,232,224 

1011 DATA 120,208,245,165,189,157,0,216,23 
2,224,120,208,246,173,168,2,133,211 

1012 DATA 173,178,2,133,214,32,16,229,76,4 
9,234,18,32,60,60,32,66,73,84,84 

1013 DATA 69,32,84,65,83,84,69,32,68,82,85 
,69,67,75,69,78,32,62,62,32,146 


< 131 > 
<044> 
<055> 
<046> 

< 150> 
<234> 

< 141 > 
< 122 > 
<140> 
<242> 
<049> 

<051 > 

< 133> 

< 112 > 
<065> 
<069> 
< 210 > 

<088> 
<051 > 
<018> 
< 121 > 
< 106> 
<237> 

<074> 

< 165> 
<095> 

<028> 
<047> 
<013> 
<228> 

< 152> 

< 122 > 
<231> 

<004> 

<106> 

< 105> 
<252> 
<036> 

< 109> 
<230> 
<17B> 
<142> 
<223> 
<160> 
<194> 

< 113> 

< 120 > 
<084> 
< 153> 
<0B4> 
<015> 


Listing. »Automatische Fehlermeldung«. 

Bitte beachten Sie die Eingabhinweise auf Seite 6. 
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Floppy-DOS-Erweiter ungen 


Diskmaster — 
Beherrschen 
Sie das 1541- 
Laufwerk! 

Dieses Programm macht die Bedie¬ 
nung des Floppy-Laufwerks 1541 si¬ 
cher und komfortabel. Alle Befehle, die 
man sich bislang mühsam aus dem 
Handbuch suchen mußte, stehen auf 
Knopfdruck parat. Außerdem gibt es 
die Möglichkeit, eine Reihe von kom¬ 
merziellen Programmen mit eigenen 
Basic-Programmen zu kombinieren. 

Das Programm Diskmaster (siehe Listing) ist ein Maschinen¬ 
sprache-Programm, das für den Commodore 64 geschrieben 
wurde, damit sich Floppy-geplagteCommodore-Besitzer nicht 
länger die Finger wund schreiben müssen, wenn sie zum Bei¬ 
spiel die Floppy initialisieren oder ein Programm laden wollen. 

Diskmaster muß mit dem MSE eingegeben werden. 

Das Hauptmenü 

Nachdem Diskmaster mit SYS 49152 gestartet wurde, mel¬ 
det es sich mit dem Hauptmenü. Hier gibt es fünf Wahlmöglich¬ 
keiten: 

1. Programm laden 

2. Programm speichern 

3. Diskette verwalten 

4. Inhalt zeigen 

5. Zurück zu Basic 

Man kann nun einen der Menüpunkte anwählen, indem man 
eine der Tasten 1 bis 5 tippt. Der angewählte Menüpunkt er¬ 
scheint dann revers auf dem Bildschirm. Die Wahl wird nun 
durch Drücken der RETURN-Taste bestätigt. 

Programm laden 

Das erste Untermenü bietet insgesamt vier Menüpunkte: 

1. laden 

2. laden und starten 

3. merge (zusammenfügen) 

4. zurück 

Es gib hier nun vier verschiedene Möglichkeiten, ein Pro¬ 
gramm zu laden. Unter Menüpunkt 1 wird ein Programm ge¬ 
nauso geladen, wie man das vom Basic her bereits kennt, aller¬ 
dings geht es hier etwas komfortabler. Man gibt einfach den 
Namen des gewünschten Programms ein, schließt die Einga¬ 
be mit RETURN ab, und der C 64 lädt das Programm. Vom 
Hauptmenü aus kann man dann wieder in das Basic zurück und 
das Programm RUN neu starten. 

Menüpunkt 1 bietet im Prinzip nichts Neues. Die Punkte 2 
und 3 hingegen stellen eine Erweiterung der Bedienungsmög¬ 
lichkeiten gegenüber dem Standard dar. Unter Punkt 3 wird 
das angegebene Programm an das bereits im Speicher befind¬ 
liche Basic-Programm angehängt. Man kann also zwei (oder 
mehr) Programme miteinander verknüpfen und erspart sich so 


eine Menge Schreibarbeit. Hierbei ist allerdings unbedingt dar¬ 
auf zu achten, daß die Zeilennummern des zweiten Programms 
höher sind als die des ersten. 

Programm speichern 

Der Menüpunkt 2 des Hauptmenüs ermöglicht das Spei¬ 
chern von Programmen, die sich im Basic-Speicherbereich 
befinden. Dazu wird einfach der Name des Programms einge¬ 
geben. Falls ein Programm gleichen Namens bereits existiert, 
wird eine entsprechende Fehlermeldung in der untersten Zeile 
des Bildschirms ausgegeben. 

Diskette verwalten 

Alle Befehle, die der Floppy über den Kommando-Kanal 
übermittelt werden, können unter Menüpunkt 3 des Hauptme¬ 
nüs übermittelt werden. Es erscheint folgendes Untermenü: 

1. Initialisieren 

2. Reorganisieren 

3. Name ändern 

4. File löschen 

5. File kopieren 

6. Name der Disk ändern 

7. Formatieren 

8. zurück 

Wählt man Punkt 1 an, so wird die Floppy initialisiert. 

Unter 2 wird ein Validate ausgeführt, das heißt, alle unbe¬ 
nutzten Blocks auf der Diskette freigegeben. 

Mit Punkt 3 kann der Name eines Files geändert werden. 
Diskmaster fordert Sie hier auf, den alten und den neuen Na¬ 
men des betreffenden Files einzugeben. Anschließend wird 
der Name geändert. 

Menüpunkt 4 wird angewählt, wenn man ein File (Programm 
oder Datei) löschen möchte. Hier muß der Name des betref¬ 
fenden Files eingegeben werden. 

l' n i r Menüpunkt 5 können Files auf der Diskette kopiert 
werden. Auch hier müssen der Name des alten und des neuen 
Files angegeben werden. 

Will man den Namen der Diskette ändern, so muß man den 
Menüpunkt 5 anwählen. Man kann dann den neuen Namen so¬ 
wie die neue ID der Diskette eingeben. 

Anschließend wird der Name geändert. Soll eine Diskette 
hingegen total gelöscht werden, ist Menüpunkt sieben an der 
Reihe. Auch hier werden Name und, wenn eine vollkommene 
Neuformatierung der Diskette verlangt wird, ID der Diskette 
eingegeben. Punkt acht führt Sie zurück ins Hauptmenü. 
Inhalt zeigen 

Vom Hauptmenü aus kann der Inhalt der Diskette gezeigt 
werden. Dazu wird der Menüpunkt 4 gewählt. Es erscheint 
dann, nach kurzer Diskettenaktivität, ein kleines Fenster auf 
dem Bildschirm, in dem die erste »Seite« des Directorys aus¬ 
gegeben wird. Die jeweils nächste Seite wird durch Drücken 
der Taste F3 aufgerufen. Mit Fl verläßt man diesen Menü¬ 
punkt wieder. 

Der Editor 

. Diskmaster bietet zur komfortablen Eingabe der Namen ei¬ 
nen kleinen Eingabe-Editor. Dieser bietet die üblichen Funk¬ 
tionen des C 64 Basic-Editors, bis auf eine Änderung: DEL 
löscht den Buchstaben unter und hinter dem Cursor. 

Zeigen der Directory während der Eingabe 
Das Directory kann nicht nur vom Hauptmenü aus angese¬ 
hen werden, sondern auch immer dann, wenn eine Eingabe, 
zum Beispiel eines Filenamens, erfolgen soll. Dank dieser 
Funktion kann man sich zum Beispiel davon überzeugen, daß 
das Programm, das man laden möchte, auch wirklich existiert, 
ohne ins Hauptmenü gehen zu müssen. Will man das Directory 
ausrufen, so muß man F3 drücken. Mit Fl verläßt man das Di¬ 
rectory wieder. 

Verlassen eines Menüpunktes 

Jeder Menüpunkt kann verlassen werden, ohne daß er aus¬ 
geführt wird, in dem man Fl druckt. Es erscheint dann wieder 
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das jeweilige Menü und es kann ein anderer Menüpunkt ge¬ 
wählt werden. 

Die Fehlermeldungen 

Es erscheinen die üblichen Fehlermeldungen der Floppy, 
wenn durch einen Eingabefehler eine Fehlerbedingung ent¬ 
standen sein sollte. Mit Fl wird die Fehlerroutine wieder ver¬ 
lassen. 

Verträglichkeit mit anderen Programmen 

Diskmaster kann mit einer Reihe von bekannten Program¬ 
men benutzt werden, zum Beispiel Vizawrite. Diskmaster funk¬ 
tioniert, wenn man eine kleine Einschränkung macht, auch mit 
Hypra-Load. Man muß dann allerdings auf das Einlesen des Di- 
rectorys verzichten. Stellt sich das Directory als lebenswichtig 
heraus, so muß man mit POKE 1,55 das Hypra-Load inaktivie¬ 
ren. Als Alternative bietet sich außerdem an, das Directory als 
Basic-Programm zu laden. 


Einige technische Details 

Diskmaster belegt den Speicherplatz von $C000 bis 
$D000. Außerdem wird der Speicherbereich von $D000 bis 
$FFFF zum Teil zur Zwischenspeicherung des Directorys be¬ 
nutzt. Daher kann kein Directory eingelesen werden, solange 
Hypra-Load aktiv ist. Ist Hypra-Load aktiviert, so erscheint 
nach dem Laden eines Programms die Warmstartmeldung der 
Floppy. 

Das Directory wird bei Diskmaster auf eine etwas unge¬ 
wöhnliche Art eingelesen: Diskmaster initialisiert zunächst die 
Diskette und prüft anschließend anhand des Namens und der 
ID, ob das Directory der betreffenden Diskette bereits eingele¬ 
sen wurde. Wenn ja, so wird das Directory nicht erneut einge¬ 
lesen. Das spart Zeit, besonders bei sehr vollen Disketten. 

Selbstverständlich kann die Diskette vom Basic aus wie üb¬ 
lich benutzt werden. (Volker Köhne/aw) 
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Listing »Diskmaster« (Schluß). Bitte mit dem MSE eingeben. 
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C 64 


DOS-Erweiterungen 


Entstörung 
des 1541- 
Laufwerks 

Bisher war es fast unmöglich, den Mo¬ 
nitor oder Fernseher in die unmittelba¬ 
re Nähe des Diskettenlaufwerks zu 
steilen. Durch die elektromagneti¬ 
schen Felder ist kaum noch ein stö¬ 
rungsfreier Zugriff möglich. Abhilfe 
schafft eine selbstgebastelte Abschir¬ 
mung. 

Eine Computeranlage braucht schon ihren Platz: Computer, 
Monitor, Diskettenstation und Drucker benötigen schon fast 
den gesamten Arbeitstisch. Warum also nicht platzsparend 
das Floppy-Laufwerk unter den Fernseher oder zumindest nä¬ 
her an ihn heran stellen. Doch unterschreitet man einen gewis¬ 
sen Mindestabstand, führt jeder Zugriff auf eine Diskette nur 
noch zu Lesefehlern. In einem Monitor und Fernsehgerät wird 
mit sehr starken elektromagnetischen Feldern gearbeitet, die 
die ungenügend abgeschirmte 1541 bei geringem Abstand 
aus dem Takt bringen können. Wer wenig Platz hat, und das 
Laufwerk am oder unter dem Fernseher stehen haben möchte, 
der muß die Abschirmung entscheidend verbessern. Das ist 
aber sehr viel einfacher als es sich anhört. Sie brauchen noch 
nicht einmal Ihren Lötkolben anzuheizen, ein Schraubenzieher 
ist schon Werkzeug genug. 

Sie schrauben einfach ihre Floppy auf und nehmen den 
Deckel ab, natürlich erst, nachdem Sie den Netzstecker gezo¬ 
gen haben! In den Deckel kleben Sie nun eine möglichst starke 
Metallfolie, also keine einfache Alu-Frischhaltefolie. Die Folie 
muß aus einem Stück sein. Achten Sie auch darauf, daß Sie nur 
die vorderen zwei Drittel des Deckels bekleben, so daß die Lüf¬ 
tungsschlitze hinten frei bleiben, sonst stirbt Ihr Laufwerk recht 
bald den Wärmetod. 

Die Metallfolie muß nun noch leitend mit dem Laufwerk- 
Chassis verbunden werden, damit der gewünschte Abschirm¬ 


effekt eintritt. Zu diesem Zweck benötigen Sie eine Kontaktfe¬ 
der, die Sie sich sehr einfach aus einem Blech nach unserer 
Vorlage (siehe Bild) basteln können. Diese Kontaktfeder kann 
bei Laufwerken mit kurzer Platine einfach an einem der beiden 
vorderen Befestigungswinkel festgeschraubt werden. Bei 
Laufwerken mit langer Platine stehen diese beiden Befesti¬ 
gungswinkel nicht mehr zur freien Verfügung. Isolieren Sie ein¬ 
fach die Unterseite der Kontaktfeder, damit keine Kurzschlüs¬ 
se auf der Platine entstehen können. Dann darf die Kontaktfe¬ 
der auf der Platine am Befestigungswinkel festgeschraubt 
werden. Wird der Deckel wieder aufgesetzt, sollte die Kontakt¬ 
feder gegen die Metallfolie drücken und somit die Verbindung 
herstellen. 

Wer sein Laufwerk offen, das heißt ohne Deckel, betreibt, 
hat es sogar noch einfacher. Sie besorgen sich dann ein dün¬ 
nes Metallblech im DIN-A3-Förmat, das Sie halbkreisförmig 
über das offene Laufwerk stülpen. An den unteren Befesti¬ 
gungswinkeln, die das Chassis im Gehäuse halten, müssen 
Sie nun einfach eine leitende Verbindung zwischen Blech und 
Chassis herstellen. Dies geht zum Beispiel durch Zwischen¬ 
klemmen von zwei Pfennig-Stücken. Da das Blech nur seitlich, 
aber nicht nach vorne und hinten abschließt, ist eine mehr als 
ausreichende Kühlung gewährleistet. 

Nach diesen kleinen Umbauten sollten Sie in der Lage sein, 
das Laufwerk ohne Schwierigkeiten in unmittelbarer Nähe von 
Fernseher oder Monitor zu betreiben. (Uwe Gerlach/bs) 
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Floppy-DOS-Erweiterungen 


Schnelles 
Formatieren 
mit der 1541 

Das 1541-Floppy-Laufwerk gehört nicht 
nur beim Laden, sondern auch beim 
Formatieren einer Diskette nicht gera¬ 
de zu den schnellsten seiner Gattung. 
»Fast Format« ändert das. 

Wer bislang mit einer Datasette gearbeitet hat, wird erstaunt 
feststellen, daß eine Diskette erst formatiert werden muß, be¬ 
vor man etwas mit ihr anfangen kann. Zu allem Unglück dauert 
dieser Vorgang, bei dem die Diskette in Spuren und Sektoren 
eingeteilt wird, fast genau 80 Sekunden. Wenn man beispiels¬ 
weise ein ganzes Paket (zehn Disketten) nacheinander forma¬ 
tieren möchte, sitzt man fast 15 Minuten vor dem Computer. 
Fast Format reduziert diesen Vorgang auf nur 11 Sekunden pro 
Diskette, oder, bei zehn Disketten, auf unter drei Minuten. 

Das eigentliche Fast Format ist als Maschinenprogramm im 
$C000 Bereich abgespeichert (Listing 1). Die neue Fbrmatier- 
Routine wird durch folgenden Befehl aufgerufen: 


0 POKE 532B0,0:POKE 53281,0:PRINT"<CLR,GRE 


EN>" <067> 

1 PRINT SPC<12)"FASTFORMAT 11.0£DOWN>“ <001> 

2 PRINT SPC <13)"VON JAN KUSCH<DOWN>" <237> 

10 INPUT"CDOWNIDISK—NAMEI3SPACE5";N$ <22B> 

20 INPUT"CDOWNJDISK—IDC5SPACE>";I* <16B> 

30 INPUT"£DOWNJLAUFWERK-NR.";D <009> 

35 IF D< >8 AND D<>9 THEN 30 <239> 

40 SYS 49152,N*,I*,D <096> 


Listing 2. Dieses kleine Hilfsprogramm vereinfacht das For¬ 
matieren mit »Fast Format«. Bitte beachten Sie die Einga¬ 
behinweise auf Seite 6. 

SYS 49152,N$,I$,D 

Dabei ist N$ der neue Diskettenname, 1$ die genau zwei Zei¬ 
chen lange ID und D die Geräteadresse des betreffenden 
Floppy-Laufwerks. Der Fast Format-Befehl kann genauso wie 
der normale Förmatierbefehl (N:Name, ID) verwendet werden. 
Etwas einfacher geht es mit dem kleinen Basic-Unterpro- 
gramm (Listing 2). Es fragt alle Parameter ab und startet die 
Format-Routine. Bitte vergessen Sie nicht, vor dem Start des 
Programms eine neue Diskette einzulegen, denn sonst ist Ihr 
gerade eingegebenes Programm wieder verloren. 

Eine kleine Einschränkung noch zum Schluß. In der Regel 
gibt es keine Probleme mit schnell formatierten Disketten, bei 
älteren und verstellten Laufwerken sind allerdings Fehler mög¬ 
lich. Verwenden Sie deshalb für ganz besonders wichtige 
Daten-Disketten den normalen Förmatier-Befehl. 

(Jan Kusch/aw) 
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Listing 1. »Fast Format 1.0«. Bitte beachten Sie die Eingabehinweise auf Seite 8. 
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Bestellungen aus 
anderen Ländern bitte 
per Auslandspost¬ 
anweisung! Achtung: 
Nicht die elngehettete 
Zählkarte verwenden. 


Bestellungen aus der 
Schweiz bitte direkt an: 
Markts Technik 
Vertriebs AG, Koller- 
atr. 3. CH-6300 Zug. 
Tel.: 042/223165. 


Bestellungen aus 
Österreich bitte direkt an. 
Bücherzentrum Meidling, 
Schönbrunnerstr. 261, 
1120 Wien. 
Microcomput-ique 
Erhard Schiller 
Fasangasse 21 
1030 Wien 


Programme aus früheren Ausgaben 


Sonderheft: Grafik 

Bestell-Nr. 1685 S4 A DM 29,90* 


DM 29,90* 


Ausgabe 9/85 

Bestell-Nr. L 6 8509 A 

Ausgabe 8/85 

Bestell-Nr. L 6 8508 A DM 29.90* 

Sonderheft: Tips & Tricks 

(2. ü. Auflage) 

Floppy-Utllhies 

CB 023 DM 29,90- 

Hilfsprogramme 

CB 024 DM 29,90* 

Sonderheft: Spiele 

Beide Disketten in einem Paket! 
Verwenden Sie nur diese Bestell-Nr.: 

DM 34,90* 


L 6 85S3 A 

Ausgabe 7/85 

Bestell-Nr. L 6 8507 A 

Commodore 64 

Haushaltsbuch (AdM) 

Terminalprogramm 

Centron 

Editor 

Eln-/Ausgaberoutine 

Fenster (C 16) 

File-Compactor 

Hypra-Assembler (LdM) 

lEEE-Basic 

Logik 

Merkzettel 


DM 29,90* 

S. 57 
S. 152 
S. 80 
S. 151 
S 77 
S 84 
S. 82 
S. 66 
S. 46 
S. 144 
S. 83 


Modulator 
REM-Killer 
Sound Editor 
Startgenerator 

Ausgabe 6/85 

Bestell-Nr. L 6 8506A 
Commodore 64 
MSE 

HI-EDDI/MPS 801 
Prost 

E-Routine 64 
GCR-HEX 
HEX-GCR 
Samurai 

Scroll-Machine (LdM) 

Crossreferenz 

Heapsort 

C 16 
F-Plotter 


S. 46 
S. 75 
S. 136 
S. 74 


DM 29,90* 

S. 54 
S. 69 
S. 76 
S. 148 
S. 117 
S. 118 
S. 72 
S. 61 
S. 155 
S. 126 


S. 68 


Sonderheft: Abenteuerspiele 

Bestell-Nr.: L685 S2 DM 34.90* 

Ausgabe 5/85 

Bestell-Nr. L 6 8505 A DM 29,90* 
Commodore 64 

Checksum. Schnell S. 54 

MSE Lader S. 55 

MPS802 S. 31 

Format-System S. 147 

VIC S. 175 

65101 S. 71 

Sternenhimmel (AdM) S. 57 


Assemblerkurs 

Direktory-Sorter 

Trick.OBJ 

3D-Movie-Maker (LdM) 
Modulator (Heft 4) 

VC 20 

Checksummer 

Minigrafik 

Longsoreen 

C 16 

Help&Trace 

Ausgabe 4/85 

Bestell-Nr. L 6 3504A 
Commodore 64 

Checksum. Schnell 
MSE Uder 
S-MON Teil 5 
Window 64 
X BAS IC 

ASS. Kurs Teil 8 
Hypra-Perfect 
11 neue Einzeller 
Print-List 
Netzgrafik 
ROT-DEMO 
X.Y-DEMO 1 u. 2 
Ostereier 

Befehlserweiterung 
VC 20 

Checksummer 
Supergrafik III 
Prg. Schutz 

Ausgabe 3/85 

Bestell-Nr. L 6 8503A 
Commodore 64 

Checksu. Schnell 
MSE Lader 
Hires-3/Teil 2 
IntellisearchSC 
Son of Destroyer 
Ligatab (LdM) 

Fl. Basicloader 

Floppylister 

E.Zeichnen 1 und 2 

Meisterschütze (AdM) 

Saver 

Screensave 

Pic-Loader 

VC 20 

Checksummer 
•'ock 


Ausgabe 2/85 

Bestell-Nr. L 6 8502A 
Commodore 64 
Checksummer 64 
MSE 

SMON (Teil 4) 


S. 144 
S. 77 
S. 65 
S. 65 
S. 155 

S. 54 
S. 69 
S. 83 

S. 84 


DM 29.90* 

S. 54 
S. 58 
S. 67 
S. 88 
S. 59 
S. 138 
S. 76 
S. 153 
S. 79 
S. 71 
S. 73 
S. 73 
S. 51 
S. 23 

S. 56 
S. 73 
S. 83 


DM 29,90* 

S. 70 
S. 79 
S. 136 
S. 153 
S. 42 
S. 63 
S. 82 
S. 82 
S. 72 
S. 53 
S. 89 
S. 88 
S. 90 

S. 70 
S. 156 
S. 159 


DM 29,90* 

S. 65 
S. 68 
S. 72 


Grab des Pharao (LdM) 

S. 

56 

Basic-Lader 

S. 

91 

RAM-Floppy 

S. 

92 

Notlandung 

S. 

156 

Hires-3 

S. 

123 

Benchmark-Test 

S. 

37 

Format Stringkur 

S. 

148 

Versch. Test.USR 

S. 

140 

Cürsorsteuerung 

s. 

86 

Rolling-Data 

s. 

88 

Super-Memory 

VC 20 

s. 

81 

Checksummer VC 20 

s. 

65 

Familienplanung (AdM) 

s. 

53 

Super 8-Steuerung 

s. 

70 

Q+Bert (3K) 

s. 

78 

Joypaint 

s. 

143 

Bitmapping 

s. 

145 

Multicolor-Demo 

s. 

146 

Ausgabe 1/85 

Bastell-Nr. L 6 8501A 
Commodore 64 

DM 29,90* 

Checksummer 64 

s. 

72 

Handballtrainer (AdM) 

S. 

53 

SMON (Teil 3) 

S. 

69 

Hi-Eddi (LdM) 

S. 

57 

Hypra-Load mal vier 

S. 

82 

Tips und Tricks 

S. 

87 

Provic 64 

s. 

76 

Eingabe (UPB) 

VC 20 

s. 

156 

Checksummer VC 20 

s. 

72 

Ausgabe 12/84 

Bestell-Nr. CB 022 
Commodore 64 

DM 29,90* 

Synthesizer (AdM) 

s. 

51 

SMON (2. Teil) 

S. 

60 

3D-Vier gewinnt 

S. 

96 

Trace 

S. 

76 

Stringy 

S. 

88 

Lader 

S. 

92 

Auto 

S. 

84 

Listschutz 

S. 

85 

Simons Axo (SB) 
Kreuzworträtsel S. 150 

S. 

64 

VC 20 

Mathematikal Basic (8K> 

) 


(LdM) 

S. 

55 

Fast Tape 

S. 

80 

Ausgabe 11/84 

Bestell-Nr. CB 020 

DM 29,90* 

Ausgabe 10/84 

Bestell-Nr. CB 019 

DM 29,90* 

Ausgabe 9/84 

Bestell-Nr. CB 014 

DM 29,90* 


Bedeutung der Abkürzungen 

-LdM = Listing des Monats 

•AdM = Anwendung des Monats 

‘SB = Simons Basic 

•GV = Grundversion 

*GV> = alle Speicherversionen können 


verwendet werden (einschließlich 
GV) 

*3K = 3-KByte-Speichererweiterung 

wird benötigt 

' 8K > » Speichererweiterung größer als 8 
KByte wird benötigt 
•UPB = Unterprogrammbibliothek 


- Alle Preise inklusive Mehrwertsteuer. 

Achtung! 

Bitte verwenden Sie für Ihre Bestellung nur die 
eingeheftete Postscheck-Zahlkarte zur 
Überweisung des Rechnungsbetrags. 


Fehlende Hefte erhalten Sie 
bei: Markt & Technik 
Vertrieb 64’er 
Hans-Pinsel-Str. 2, 

8013 Haar 


























Floppy-DOS-Erweiter u ng 


FMON 1541 — 
das Werkzeug 
für werdende 
Floppy- 
Spezialisten 

Zur Programmierung des 1541-Floppy- 
Laufwerks braucht man gutes Werk¬ 
zeug. Mit dem FMON1541 können Sie 
Programme für das Floppy-Laufwerk 
schreiben oder sich einfach ein wenig 
im Speicher umsehen. 

FMON 1541 ist eine große Hilfe für alle, die Ihr 
1541-Laufwerk programmieren wollen. Er erlaubt einfaches 
Assemblieren und Disassemblieren. Außerdem sind noch viele 
andere Sonderfunktionen eingebaut. In der folgenden Anlei¬ 
tung werden wir Ihnen die Funktionen und Befehle des FMON 
1541 erläutern. 

Tippen Sie zunächst den FMON 1541 (Listing 1) mit dem 
MSE ab und speichern Sie ihn. Nach dem Laden mit LOAD 
"FMON 1541",8,1 wird der Monitor mit SYS 32768 oder SYS 
8 *-4096 gestartet. Folgende Befehle bietet Ihnen der FMON 
1541: 

A Direktassembler 
Format :A aaaa bbb ccccc 

Der Befehl bbb mit dem Operanden ccccc wird an die Adresse 
aaaa geschrieben (6502-Schreibweise). Alle Angaben erfol¬ 
gen hexadezimal. Ein $ muß nicht vorgestellt werden. Bei der 
Art Immediate sind achtstellige Binärzahlen (% vorgestellt) und 
ASCII-Angaben (in ” (CHR$(34)) erlaubt. Beispiel: AND 
# %10101100 oder LDA #”A”, wobei der zweite Anführungs¬ 
strich weggelassen werden kann (LDA #’Ä). Bei Accu- 
Befehlen kann das nachfolgende A weggelassen werden. Ein¬ 
zelne Bytes können mit einem ».« eingegeben werden (,A9). 
Bei Branch-Befehlen wird die Zieladresse in Form einer zwei¬ 
stelligen Hexzahl angegeben. Und jetzt eine »Spezialität« des 
FMON 1541: Alle Undefinierten Opcodes (vorgestellt im 64’er, 
Ausgabe 3/85) werden verarbeitet! (Tabelle 1) 

D Disassemblieren von Speicherbereichen 
Format: D aaaa, bbbb 

Disassembliert den Speicherbereich aaaa bis bbbb. Wenn 
bbbb fehlt, wird ab der Adresse aaaa disassembliert. Wenn bei¬ 
de Adressen fehlen, dann wird ab 0300 disassembliert. Än¬ 
dern von Bytes ist möglich. Fahren Sie an die Stelle und ändern 
Sie die oder das Byte und drücken »RETURN«. 

XExit 

Springt ins Basic zurück 
Z Exit II 

Springt ins Basic zurück (wie RUN-STOP / RESTORE) 

G GO 

Format: G aaaa 

Springt zur Speicheradresse aaaa. Das Programm muß mit 
RTS enden. 

50 


M Memory Dump 
Format: M aaaa, bbbb 

Gibt den Speicherbereich aaaa bis bbbb mit acht Byte pro Zeile 
und ASCII-Ausgabe aus. Wenn bbbb fehlt, wird wie beim D- 
Befehl gehandelt. Wenn aaaa fehlt, dann wird der Bereich $ 
0300 bis 03FF gelistet. Ändern von Byte möglich. 

# Ändern der Floppyadressa 

zum Beispiel: #9. Alle Befehle wirken auf das Floppy- 
Laufwerk mit der Geräteadresse 9. 

> Ändern der Druckeradresse 
zum Beispiel: >5 

Das Floppy-Laufwerk ist auf acht und der Drucker auf vier vor¬ 
eingestellt. 

@ Senden von Befehlen in den Befehls-Kanal 
Format: @a: bbbbbb 

Sendet den Befehl a mit dem Text bbbbbb an das Floppy- 
Laufwerk. 

* Liest Fehlerkanal aus. 

$ Listet Directory. 

C Kaltstart des Floppy-Laufwerks. Alle Puffer werden ge¬ 
löscht!. 

I Initialisieren des Floppy-Laufwerks. 

R Lesen eines Blocks. 

Format: R tt ss 

Liest den Track tt, Sector ss in Puffer Null ($0300 bis 03FF). 
Mit M kann er angezeigt und verändert werden. 

W Schreiben eines Blocks auf Diskette ($0300 bis 03FF). 
Format: Wie bei Read. 

Read und Write werden mit Jobbefehlen gehandhabt. Ein 
eventuell auftretender Fehler steht in Adresse $0000 (Fehler¬ 
meldungen siehe Tabelle 2). Meiden Sie ILLEGAL BLOCK OR 
SECTOR! 

J Senden eines Jobbefehls für Puffer Null. 

H - »' lat: J aa, bb cc 

Der Jobbefehl aa wird mit den Parametern bb und cc in Spei¬ 
cheradresse $0000, 0006/0007 geschrieben. 

P ASCII-Text an eine bestimmte Stelle schreiben. 

Format: P aaaa, ttttttttt 

Der Text ttttttttt wird an die Adresse aaaa und folgende gesetzt. 
S Sichern von Speicherbereichen. 

Format: S "ttttttttt“, aaaa, bbbb 

Der Bereich aaaa bis bbbb wird in die sequentielle Datei ttttttttt 
zwischengespeichert. Da sequentielle Daten Puffer benut¬ 
zen, wird der Speicherbereich aaaa bis bbbb erst in den Be¬ 
reich ab $C000 im Computer zwischengespeichert, dann erst 
in die sequentielle Datei geschrieben. Dieses Verfahren dau¬ 
ert seine Zeit (der FMON ist nicht abgestürzt!). Wenn Sie Ihr 
Programm nach dem Speichern starten wollen, müssen Sie es 
erst mit »L« neu laden, da die Puffer benutzt werden. 

L Laden von Speicherbereichen. 

Format L "ttttttttt“ 

Das Programm ttttttttt wird in die Floppy geladen. Auch der L- 
Befehl braucht seine Zeit! 

Sichern und laden Sie keine Speicherbereiche, die länger als 
4 KByte sind (ist ja auch gar nicht notwendig). 

F Füllen von Bereichen. 

Format F aaaa,' bbbb, cc 

Der Bereich aaaa bis bbbb wird mit dem Byte cc vollgeschrie¬ 
ben. 

Q Beschleunigen des Schreib-Lesekopfs (64'er Ausgabe 
4/85). 

Format: Q oder Qaa 

Nur »Q« beschleunigt und »Qaa« schaltet wieder auf normal 
um, wobei aa ein beliebiges Zeichen sein kann. 

N Druckt eine Datei. 

Format: N "ttttttttt, X“ 

Druckt die Datei ttttttttt (Dateityp X). 

(M. Köhler/P. Baumann/aw) 








Floppy-DOS-Erweiteru ng 


Absturzbefehle werden durch ABS gekennzeichnet. 

No Operation (1 Byte) werden bis auf NOP mit NOI gekennzeichnet. 
No Operation (2 Byte) werden mit N02 bezeichnet. 

No Operation (3 Byte) werden mit N03 angezeigt. 

Wenn man diese Befehle beim A-Befehl benutzt, wird der erste 
jeweils mögliche Befehl genommen (bei ABS: 02). 

Besondere Schreibweisen: 


ASLORA 

ASO 

ROLAND 

RAN 

LSR:EOR 

LSE 

ROR:ADC 

RAD 

DEC:CMP 

DEM 

INC:SBC 

INB 


Ansonsten wird die übliche 6502-Schreibweise benutzt. 

Hinter den Opcodes steht der Name des Befehls und danach die 
Adressierungsart: ZO = ZEROPAGE; ZOX = ZEROPAGE, X; ZOY = 
ZEROPAGE, Y; IMM = IMMEDIATE; INX = INDIRECT, X; INY = INDI- 

BSOLUT, X; ABSY = ABSO- 


RECT, Y; ABS 
LUT, Y; 

= ABSOLUT; ABSX 

OB 

=ANN 

(ZO) 

2B 

= ANN 

(ZO) 

4B 

=ANL 

(IMM) 

6B 

= DAR 

(IMM) 

83 

=AXX 

(INX) 

87 

= AXR 

(ZO) 

8B 

=TAN 

(IMM) 

8F 

=AAX 

(ABS) 

93 

=AXY 

(INY) 

97 

=AXI 

(ZOX) 

9B 

=AXS 

(ABSY) 

9C 

=YXA 

(ABSX) 

9E 

=XYA 

(ABSY) 

9F 

= AYY 

(ABSY) 

A3 

=LDT 

(INX) 

A7 

=LTA 

(ZO) 

AB 

=??? 

(Wirkung noch 
nicht ermittelt) 

AF 

=LTX 

(ABS) 

B3 

=LYT 

(INY) 

B7 

= LAX 

(ZOY) 

BB 

=TSA 

(ABSY) 

BF 

= LYX 

(ABSY) 

CB 

=XAS 

(IMM) 

EB 

=SBC 

(IMM (wie der 
normale Befehl 
SBC)) 


64SR 


Tabelle 1. Eingabehinweise und besondere 
Schreibweisen des FMON 1541 


Qf 


Rückmeldungen in der Adresse 0000 bei R/W/J (Fehlermeldungen) 
$01 = Fehlerfreie Durchführung (00, OK) 

$02 = Blockheader nicht gefunden (20. Read Error) 

$03 = Sync-Markierung nicht gefunden (21, Read Error) 

$04 = Datenblock nicht gefunden (22, Read Error) 

$05 = Datenprüfsumme ist falsch (23, Read Error) 

$07 = Fehler nach einem Verify (25, Write Error) 

$08 = Diskette ist schreibgeschützt (26, Write Protect on) 

$09 = Prüfsumme im Header falsch (27, Read Error) 

$0A = Datenblock auf Diskette zu lang (28, Write Error) 

$0B = Falsche ID im Block Header (29. Disk ID Mismatch) 

$0F = Keine Diskette im Laufwerk (74, Drive not Ready) 

$10 = Fehler bei Decodierung (24, Read Error) 

Tabelle 2. Die Fehlermeldungen in der Adresse 0000 
werden mit dieser Tabelle entschlüsselt 


Programm 


f-mon 1541 


8000 94b4 


un 


8000 

: 

20 

44 

e5 

a2 

04 

86 

7a 

a2 

b4 

8008 


08 

86 

02 

a2 

00 

8e 

86 

02 

bb 

BOIO 

: 

a2 

Od 

8e 

21 

dO 

a2 

05 

Be 

54 

8018 

: 

20 

dO 

4c 

2b 

82 

a9 

24 

aO 

cO 

8020 


80 

4c 

le 

ab 

Od 

20 

20 

20 

56 

B028 

: 

20 

20 

20 

20 

20 

20 

2a 

2a 

64 

8030 

: 

2a 

2a 

20 

46 

2d 

4d 

4f 

4e 

57 

8038 

t 

20 

31 

35 

34 

31 

20 

2a 

2a 

d6 

8040 

: 

2a 

2a 

Od 

20 

20 

20 

20 

28 

9b 

8048 

s 

43 

29 

20 

31 

39 

38 

35 

20 

b9 

8030 

i 

42 

59 

20 

4d 

2e 

4b 

4f 

45 

f 6 

8038 

8 

48 

4c 

45 

52 

20 

50 

2e 

42 

24 

8060 

8 

41 

55 

4d 

41 

411 

4e 

Od 

00 

53 

8068 

8 

48 

a2 

08 

Oa 

48 

a9 

30 

90 

f 8 

B070 

8 

02 

a9 

31 

cB 

68 

ca 

dO 

f 3 

b4 

B07B 

8 

c8 

68 

48 

4a 

4a 

4a 

4a 

20 

30 

8080 

: 

83 

CIO 

68 

29 

Of 

c9 

Oa 

90 

Ob 

8088 

8 

02 

69 

06 

69 

30 

4c 

d2 

ff 

9» 

8090 

8 

48 

a9 

20 

20 

d2 

ff 

68 

60 

48 

8098 

8 

18 

69 

30 

20 

d2 

f f 

60 

48 

b4 

80a0 

8 

a9 

2e 

20 

d2 

ff 

68 

60 

48 

18 

SOaS 

8 

a9 

3b 

20 

d2 

ff 

60 

60 

48 

a7 

80b0 

8 

a9 

2c 

20 

d2 

ff 

68 

60 

48 

27 

80b8 

8 

a9 

3a 

20 

d2 

ff 

68 

60 

48 

36 

80c0 

8 

a9 

20 

20 

d2 

ff 

a9 

3f 

20 

66 

80c 8 

8 

d2 

ff 

68 

60 

c9 

30 

90 

05 

2a 

BOdO 

8 

c9 

47 

bO 

01 

60 

68 

68 

20 

b4 

S0d8 

3 

bt 

BO 

4c 

31 

82 

c9 

3* 

OB 

80 

BOeO 

8 

29 

Of 

28 

90 

02 

69 

OB 

60 

f 9 

80e8 

8 

Oa 

Oa 

Oa 

Oa 

60 

48 

a9 

Od 

c4 

80 t 0 

8 

20 

d2 

ff 

68 

60 

20 

e4 

ff 

21 

80 t 8 

8 

to 

fb 

60 

a9 

01 

a6 

02 

aO 

c2 

8100 

8 

Of 

20 

ba 

ff 

a9 

00 

20 

bd 

64 

8108 

3 

tt 

4c 

cO 

ff 

a2 

01 

4c 

c9 

54 

8110 


tf 

20 

cc 

ff 

a9 

01 

4c 

c3 

ae 

81 18 


tt 

a2 

01 

4c 

c6 

ff 

4d 

2d 

2e 

8120 

8 

45 

00 

4ri 

2d 

52 

00 

4d 

2d 

13 

8128 


57 

00 

55 

4a 

49 

55 

31 

3a 

96 

8130 


00 

55 

32 

00 

23 

85 

fb 

84 

bf 

8138 


tc 

aO 

00 

bl 

t b 

fO 

07 

20 

5e 

8140 


d2 

ff 

c8 

4c 

3b 

81 

60 

a5 

5a 

8148 


dO 

fO 

07 

20 

cf 

ff 

c9 

Od 

94 

8150 

3 

dO 

04 

a9 

20 

18 

60 

38 

60 

b7 

1158 

S. 

48 

a5 

22 

20 

d2 

ff 

a5 

23 

09 

8160 

3 

20 

d2 

ff 

68 

60 

a5 

23 

cd 

52 

816B 


35 

03 

bO 

01 

60 

a5 

22 

cd 

c2 

8170 


34 

03 

bO 

01 

60 

68 

68 

4c 

f 6 

8178 


bb 

82 

a5 

cb 

c9 

3f 

fO 

03 

b7 

8180 

3 

4c 

e9 

82 

20 

11 

81 

4c 

31 

16 

8188 


82 

48 

ad 

8d 

02 

c9 

01 

f 0 

aO 

8190 


f 9 

68 

60 

20 

cf 

ff 

c9 

2c 

56 

8198 


dO 

01 

60 

4c 

bb 

82 

20 

2c 

33 

81aO 


50 

2c 

57 

00 

20 

2c 

50 

2c 

d9 

81 a8 

8 

52 

00 

a9 

91 

20 

d2 

ff 

60 

fO 

81b0 

3 

20 

cf 

ff 

c9 

30 

90 

e4 

c9 

aO 

81b8 

3 

39 

bO 

eO 

38 

e9 

30 

60 

20 

6a 

aico 

3 

cf 

ff 

c9 

30 

90 

dO 

c9 

31 

48 

81c8 

8 

bO 

dl 

4c 

bb 

81 

a2 

ff 

aO 

5a 

81d0 

8 

ff 

ca 

dO 

fd 

88 

dO 

fa 

60 

«4 

SldB 


a9 

22 

aO 

81 

20 

35 

81 

20 

dd 

BleO 

3 

58 

81 

a9 

Od 

4c 

d2 

ff 

20 

aO 

BleB 

8 

cf 

ff 

c9 

20 

dO 

01 

60 

68 

95 

81f0 

8 

68 

4c 

bb 

82 

4d 

2d 

57 

00 

59 

81f8 

8 

00 

02 

00 

00 

Od 

5f 

85 

fb 

d3 

8200 

3 

84 

fc 

aO 

OO 

bl 

fb 

c9 

3f 

Ob 

8208 

3 

to 

06 

20 

aB 

ff 

c8 

dO 

f 4 

8c 

8210 

8 

60 

48 

8a 

20 

28 

82 

20 

e8 

24 

8218 

3 

80 

8d 

34 

03 

68 

20 

28 

82 

fa 

B220 

8 

18 

6d 

34 

03 

Bd 

^4 

03 

60 
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Listing 1. Der FMON 1541 muß mit dem MSE 
eingegeben werden. Bitte beachten Sie die 
Eingabehinweise auf Seite 8. 
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Wie Super ist die Supergrafik? (Suporgrafik 54) 
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Melodlenachreiber und Musik-Synhthcsrser 
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Assembler 

Assembler ist ke.no Alchimie (Toil 1) 
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5/34 

Programme 



Assembler t*t keine Alchimie (Tbil 2) 
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10/84 

Nachhilfe auf Knopfdruck (Mathematik) 
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2/85 


Assembler :st koine Alchimie (Till 3) 

121 

11/84 


SoftLoaming — die woichc Wolle des Lernen» 
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l/IS 


Assembler ist koine Alchimto (Toil 4) 
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Vokaboltraining mit dem Computer 
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Assomblor ist koine Alchimie (Teil 8} 
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1/BS 
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Assembler isi keine Alchimie (Teil 6) 
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Mathomatik 

Nachhilfe auf Knopfdruck (Mathomatik) 
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Code* 

Assembler ist keine Alchimie (Teil 7) 

124 

3/68 

Musik 

Guio Noten für gute Noten Exiendend Synthesizer 
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Alle Tanten-, Zeichen und Stouorcodos (Teil 1) 
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4/B4 





Allo Tasten-, Zeichen- und Stouercode* (Teil 2) 
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Alle Tasten-, Zeichen- und Steuercodes (Teil 3) 

Alle Tasten-, Zeichen- und Steuercodes (Teil 4) 
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Music-Composor — Komponieren leicht gemacht 
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Comal 

Comal - Eine Einführung (TbU 1) 
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Symhimai - Daa Piano für den Akienkoffox 
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Comal - Eine Einführung (Tb 11 2) 

Comal - Eine Einführung (Tbil 3) 
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Programm- 

Basic Bür — Ein Programmgonorator 
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Eff Prag 

Findon mit System - Eino nouanigo Suchmothode 
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Sprachen 

Die Turbo-Paacal-Stoxy 
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Förth ohne Floppy (C 64 und VC 20) 
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Mullabluhr im Computex Die Garbaggo Collection 
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1/85 


HF.S 84 Förth - komfortabler als Basic 
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(Toll l) 
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Slrlngprogrommlerung in Maschinensprache (Teil 2) 
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ln die Geheimnisse der floppy etngataucht (Tbü 1) 
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(Tbil 2) 


In dlo Geheimnisse dor r.oppy •ingetauchl (Teil 2) 
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11/84 


Sochs Paacal-Veralonen tm Vergleich 

50 

8/04 


ln die Geheimnisse dor Hoppy elngotauchf (Toil 3) 
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Tabelle nkal- 

Multipinn Viel zu schade, um nur damit au 
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In dlo Geheimnisse der Floppy ©inggtauchi (Teil 4) 
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kulation 

kalkulieren 

Grafik 

In dio Cehoimmsso dor Floppy oingotaucht (Tbll B) 
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3/85 

Calc Rosult - Dreidimensional!! Kalkulation 
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9/64 

Hlre« 3 (Totl 1) 
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VixaSiar - Ein Slom wird geboren 
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11/84 


Huos 3 (Toll 2) 
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Blittoxi schnell wie dor Blitz? 
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Reise durch die Wundorweli dor Crafik (TbU 1) 
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mng 

Homoword - Toxtvoraiboitung su Hause 

36 
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Roiso durch dlo Wundcrwoll dor Grafik (TbU 2) 
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5/84 


4B 
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Roiso durch dlo Wundorweli dor Crafik (Tbil 3) 
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Texromai — Büroanwendung eum kloinon Prois 
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Roiso durch die Wunderwolt dor Grafik (TbU 4) 
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TbU-Tbxt - Floxrbilttlt ist Trumpf 
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Rone durch dlo Wundorweli der Crafik (Tbil 8) 
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Vizawrite 64 - Dor C B4 wud aum PC 
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Reise durch dio Wunderwolt der Grafik (Totl 6) 
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Wordpro 3 plus — Von den Großen auf den Kloinon 
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Roiso durch dlo Wundorwolt dor Crafik (Tbil 7) 
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Vokabeln 

Vokabeltialnlng mit dem Computer 
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3/85 

Grundlagen 

Geschwindigkeit durch Moschinencodo - so 
arbeiten Compiler 
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2/88 





Musik 

Dom Klang auf der Spur (Tbil 1) 
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12/84 


Software 




Dom Klang auf dor Spur (Toi. ?.) 
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1/85 





Dem Klang auf dor Spur (Toil 3) 
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Adressen- 

Adiouionveiglotch VC 20-C 64 
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7/84 

Precompilor 

Strubs — oln Precompüor für Basic-Programme 

110 

4/84 

vergleich 





man 



Basic 

Debugging - Tohleraucho in Baalc-Progrommen 
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7/84 


Strubs - om Procompiler fUr Basic-i’rogrnmme 
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5/84 


Fohlomucho in B-isic Programmen Hot! 
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9/84 


(Tbil 2) 



CP/M 

CP/M-Softwaro vom Apple auf don C 64 
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7/84 


Strubs - oin Procompiler für Basic-Programme 

128 

6/84 

Compiler 

Goschwindigkott durch Maschinoncode — so 

39 

2/85 


flbil 3) 




arbeiten Compiler 




Strubs — oin Procompllor für BaSc-Programmo 
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DFÜ 

Begriffe aus der DFÜ 
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(Tod 4) 




Datex-P und ausländische Netzwerke 
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10/84 

Speicher 

Memory Map mit Wandervorschlägen (Tbil l) 
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Eloctronic Mail - dio nouo Form dor Post- 
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Memory Map mit Wandervorschläoen (Tbil 2) 
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12/84 


befördorung 




Memory Map mit Wandorvor&chlägcn (Tbil 3) 
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1/85 


Maüboxpiogxamm für den C 64 

114 

9/84 


Memory Map mit Wandcrvorschlagen (Toll 4) 
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2/85 


Tbrminalprogramm für den C 64 
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7/84 


Memory Map mit Wandervorschlägen (Tbil 5) 

144 

3/85 


Wie bedient man eine Mallbox? 
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7/B4 

VC 20 

Der gläserne VC 20 (Tbil 1) 
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9/84 

EPROM 

Dotenbrennerei: Wie programmiere ich EPROMs? 
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9/84 


Der gläserne VC 20 (Tbil 2) 

137 

10/84 

Floppy 

22 Read Error — Theorie und Praxis 
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3/85 


Dor gUscmo VC 20 (Tbil 3) 

126 

11/84 

Grafik 

Neues vom Video-Chip boim VC 20 
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9/B4 


Der gläserne VC 20 (Tbil 4) 

130 

1/8S 

Grundlagen 

Daton im (relativen) Dircktzugnff 
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7/B4 


Dor gläserne VC 20 (Tbü 5) 

141 

2/85 


Datenkreislauf: Dto sequentielle Datenspeicherung 
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Der gläserne VC 20 (Teü 6) 
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3/85 


Die index-sequentielle Datei 
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Fl uBdiagra mme 
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So macht man Bas-.c-Programmc schneller (Tbü 2) 
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Spiele-Test 




Strukturiertes Programmieren (Teü l) 
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Strukturiertes Programmieren (Tbü 2) 
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Abenteuer 

Abenteuer selbst gemacht — Advcnture Creator 

43 

11/84 
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9/84 


Die Losung von Hobbit 
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diagrammen) 




Exodus — Ultuna HI 

Gordon Saga 
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2/85 

Musik 
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4/84 

9/84 


Gruds in Spaco 

137 

8/84 
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9/84 


House of Ushor 
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10/84 


Mai ((Übersicht der Muälkprogramnte 
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9/84 


Lösung von Dallas Quest 
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1/55 

Sprachen 

Basic ist out — Es lebe Förth 

43 

i/as 


Lösung von Enchanter 

44 

3/B5 


Förth — die etwas andere Programmiersprache 
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7/84 


Lösung von The Blade of Blackpool 
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10/84 


Pascal — leistungsfähiger und eleganter als Basic 
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7/84 


The Quent 
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Pascal — leistungsfähiger und eleganter als Basic 
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8/84 

AcUon 

Dino Eggs 
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6/84 


Was ist Comal’ 

41 

8/84 


Flip and Flop 
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Tcxtvorarbei- 

Textvorarbeitungsprogramme - Marktuboreicht 
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6/84 


Impossiblo Mission 
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tung 





Loderunner 

68 

7/64 


Von der Schreibmaschine zum Tbxaystem 

34 

3/85 


QX 0, Catastrophes 

48 

12/84 


(Auswahlhilfe) 




Raingame 
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Tips 

DOS 5.1 (Tbil 1) 

40 

5/84 


Save New York und Survivor 

46 

4/84 


DOS 51 (Tbü 2) 

16 

9/84 


Jom . Zaga 

48 

1/85 




Wizard 

49 

12/84 





Arcade 

Zaxxon 

AE — ein Action-Spiel 

68 

56 

7/84 

6/64 


Wettbewerbe 




Fue Oalaxy (VC 20) 

37 

10/84 

Eirunder 

Die Top 10 (Einzeller) 

158 

11/84 


Schnellboot - Rottung aus dor grünen Hölle 

109 

9/84 


Einzeller-Wettbewerb: Dio nächsten 14 

137 

1/88 

riippo« 

David's Midmght Magic 

60 

S/64 

Kreuz- 

Kreuzworträtsel selber machen 

151 

12/84 


Night Mission 

61 

5/84 

womatsei 





Slamball - der ellenlange Flipper 

105 

9/B4 

Sprites 

Das achönsio Sprite — Auflösung 

174 

7/84 

Grundlagen 

Fantasy-Spiele 

106 

9/84 

Unter- 

Formatierte Eingabe 

156 

1/85 

Simulation 

nighi 11 — fast wie richtiges Fliogon 

69 

7/84 


Exsort — Sortieren mit Komfort 

154 

11/84 

Sport 

One on One 

136 

8/64 


Sieger mit Maske - Maskonorstallungsprogrumm 

172 

10/84 


Spiel dos Jahres: Imcmalional Soccer 
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12/84 





Taktik 

Summer Games — Loa Angelas laßt grüßen 

Taktik- und Siraiegiesptele 

138 

46 

8/84 

3/88 

Alle Beitrage und in der Regel für don C 64, sofern nicht andern 
gekennzeichnoi (VC 20) 




So machen's andere 

Amateurfunk runkend© Computer 
Datenbank Klein aber oho - dar VC 20 
Flnanson Gorogoltor Zahlungsverkehr 
Fotografie Dor VC 20 als Fotolehrling 

Modo-Fotoa mit Bita und Byto» 

Lindwirt* Der Computer Im Kuhatall 
achaft 

Lichttolofon Mit vier Baud ubor don Balkon 
Moduln Computer bringen don Kreislauf ln Schwung 
Orientierung Welche Hnuanummer hat dor Kölner Dom? 
Platrproblom Wohin mit dom Hoimcomputor? 


Software-Test 

Assembler Im TOat (AS 04. MAE, TEX AS ASSI/M) 

A&somblor im Tbst. Maatercode. Proflmat, Profiaoft. 

Maschine 64 

Aasomblor? Assembler 1 

Exbaiic Lovol II — oino tolle Sache 

CBaaic 

Simons Basic (Tbil 1) 

Simons Basic (Teil 2) 

Magic Doak — Bildschirm statt Schreibtisch 

Erste Erfahrungen mit dom CP/M-Modul 

Basic-Programme auf Trab gobracht Austro-Spoed. 

BASS. Exbasic. Petspeod 

Tbleiorm — Die Verbindung zum Modem 

Terminal 64 - Schwor auf Draht 

Daton gm im Griff (Datamat. Multidata Daten- 

managor) 

1SM G4 — ohno FIoiB kein Preis 

1SM 64 — professionelle Daienverwaltung 

Mamdat 64 

Suporbase 64 

Lohnsteuerjahieaausgleich leicht gemacht 
Ex-DOS und Disk Docto; 

Ouickcopy - das schnelle Kopierpiogramm 
Elektronische Aquarelle Paint Magic 
Grafik hcch zwei - das Exiended Graphic System 
Grafiktablotts KoalaPad und SuperSketch 
Graphics-B&sic (HES) 


Basic- 

Erweiterung 

Buto 

CP/M 

Compiler 

DFÜ 

Datenbank 


Finanzen 

Floppy 
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Folgende Abkürzungen wurdnn verwendet 1.DM • Litamyr. clou Mount i 
AdM - Anwendung den Monat!» SB - Slmonn Basic 


Neu: die 64 f efrSqmmelbox! 

Für alle Leser, die »64’er« regelmä¬ 
ßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Service-An¬ 
gebot: die 64'er-Sammelbox! 

Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nachschla¬ 
gewerk. 

Übrigens: Die Sammelbox ist 
nicht nur ein praktisches 
Aufbewahrungsmittel: Sie 
eignet sich auch her¬ 
vorragend als Ge¬ 
schenk für Freun¬ 
de und Bekannte 
zu vielen 
Anlässen. 


Auch die bisher erschienen 
Sonderhefte können Sie 
jetzt direkt bestellen: 





TIPS STRICKS 

(1. Programm-Sonderheft) 
Eine wahre Fundgrube an 
Ideen und Programmen 
für Computer-Profis und 
alle, die es werden 
wollen. 

BESTELLCODE: Tips&Tips 



ABENTEUERSPIELE 

(2. Programm-Sonderheft) 
Auf mehr als 100 Seiten 
viele interessante Adven- 
tures, die Sie lange Zeit 
fesseln werden. Mit ab¬ 
geschlossenem Kurs zur 
Programmierung eigener 
Abenteuerspiele und zahl¬ 
reichen Lösungen profes¬ 
sioneller Adventures. 
BESTELLCODE: 
Abenteuerspiele 


SPIELE 

(3. Programm-Sonderheft) 
Heiße Listings für alle 
Spiele-Fans: Sportspiele, 
Schießspiele, Denkspiele. 
Spielegeneratoren, Aben¬ 
teuerspiele, Brettspiele, 
Taktikspiele, Geschick¬ 
lichkeitsspiele und eine 
Marktübersicht aller in 
Deutschland erhältlichen 
professionellen Spiele 
bringen alles, was das 
Herz der Spiele-Fans 
höher schlagen läßt, 
BESTELLCODE: Spiele 


GRAFIK S DRUCKER 

(4. Programm-Sonderheft) 
Randvoll mit Informationen: 
Rund 28 Listings der Spit¬ 
zenklasse. Darunter Top- 
Listings zur räumlichen 
Darstellung von Körpern 
aus beliebigen Betrach¬ 
tungsrichtungen. 

Weiters: Prüfsummenli- 
stings, Drucker-Anwen¬ 
dung. Basic-Erweiterung, 
Hardcopy-Routinen, Zei¬ 
chengenerator, Grundla¬ 
gen. Tips & Tricks. 
BESTELLCODE: 

Grafik & Drucker 
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Directory- 
Editor mit 
Komfort 

Mit diesem Programm gestalten Sie 
das Disketten-Directory ganz nach Ih¬ 
ren Wünschen. 

Mit dem Directory-Editor kann man das Inhaltsverzeichnis ei¬ 
ner Diskette auf komfortable Art und Weise ändern. Das Pro¬ 
gramm ist lauffähig auf dem Commodore 64 sowie seinen 
»großen Brüdern« CBM 2001 bis 8001. Es erkennt Computer- 
und Floppy-Laufwerk-Typ und sollte ohne Schwierigkeiten 
auch an andere und zukünftige Commodore-Computer und 
-Floppy-Laufwerke anzupassen sein. 

Das Programm wird mit RUN gestartet. Es dauert einige Se¬ 
kunden, bis Computer- und Floppy-Laufwerk-Typ erkannt und 
die Variablen entsprechend gesetzt sind. 

Befehlsbeschreibung 

Tabelle 1 zeigt eine Übersicht über alle Befehle des 
Directory-Editors. Die Befehle im einzelnen: Durch »A« oder 
»SPACE« (Leertaste) erhöht man eine zweiseitige Kurzanlei¬ 
tung mit einer Befehlsübersicht (weiter mit beliebiger Taste). 

Mit »0« und »1« kann man bei einem angeschlossenen 
Doppelfloppy-Laufwerk zwischen den beiden Laufwerken 
wählen. Falls ein Doppelfloppy-Laufwerk angeschlossen ist, 
wird beim Start des Programms automatisch Laufwerk 1 ge¬ 
wählt, so daß sich folgende Laufwerksaufteilung anbietet: Lauf¬ 
werk 0 mit Systemdiskette und Laufwerk 1 mit der zu bearbei¬ 
tenden Diskette. 

»L« dient zur Umschaltung zwischen Groß- und Kleinschrei¬ 
bung. Mit »X« kann das Programm jederzeit verlassen werden. 
Wird gerade eine Diskette bearbeitet, so wird zunächst auto¬ 
matisch der Befehl »E« ausgeführt. 

Der eigentliche Editor wird mit »I« initialisiert. Die Aufforde¬ 
rung zum Einlegen der zu bearbeitenden Diskette bestätigt 


Befehl 

Mnemonic 

Bedeutung 

A/SPC 

Anl 

Anleitung zeigen 

B 

Block 

blockweises Weiterlesen der Directory 

D 

DEL 

File als gelöscht kennzeichnen 

E 

Ende 

Bearbeitung der Directory beenden 

F 

Floppy 

Floppykommando eingeben 

1 

Init 

Editor Initialisieren, Diskettennamen und -ID 
ändern 

L 

Leiter 

Groß-/Kleinschrift umschalten 

N 

Name 

Filenamen neu eingeben 

P 

PRG 

als Programmfile kennzeichnen 

R 

REL *) 

als relatives File kennzeichnen 

S 

SEQ 

als sequentielles File kennzeichnen 

U 

USR 

als User-File kennzeichnen 

V 

Valid 

Block-Überprüfung erzwingen 

X 

Exit 

Programm beenden 

— = 


nächsten Fileeintrag anzeigen 

<RET > 


einen Fileeintrag zurückgehen 

* 

*) 

geöffnetes File schließen 

+ 

*) 

Löschschutz aktivieren 

— 

*) 

Löschschutz abschalten 

0/1 


auf entsprechendes Laufwerk schalten 

*) nicht für 2040/3040-Laufwerke 


Tabelle 1. Die Befehle des Directory-Editors 


man mit einem beliebigen Tastendruck. Nun wird die eingeleg¬ 
te Diskette initialisiert und nachgeprüft, ob sie dem Format des 
Floppy-Laufwerks entspricht. Jetzt werden nacheinander Dis¬ 
kettenname und Identität (ID) angezeigt, die man durch einfa¬ 
ches Überschreiben ändern kann. Die ID darf übrigens bis zu 
fünf (bei CBM 2040/3040 vier) Zeichen lang sein. Mit der 
RETÜRN-Taste kommt man zum Inhaltsverzeichnis. 

Das Programm zeigt jetzt den ersten Eintrag an. Im ersten 
Feld wird die Länge des Files in Blöcken angezeigt. Das zweite 
Feld enthält den Filenamen, der nach dem Drücken von »N« frei 
geändert werden kann. 

Im dritten Feld werden drei Fileparameter angezeigt, die in 
dem Directory auf der Diskette alle in einem Byte unterge¬ 
bracht sind: Wenn ein Stern vor dem Filetyp angezeigt wird, so 
wurde das File nach dem Schreiben nicht geschlossen, was 
es normalerweise unmöglich macht, auf dieses File wieder zu¬ 
zugreifen. Glücklicherweise geschieht dies recht selten, da so 
etwas nur durch Stromausfall, versehentliches Ziehen des 
Netzsteckers oder durch Unterbrechen eines Basic-Pro- 
gramms mitten im Schreibvorgang Zustandekommen kann. 
Trotzdem ist es ärgerlich, wenn es einmal passiert. Mit dem 
Directory-Editor können solche Files wieder lesefähig ge¬ 
macht werden, indem man »*« eingibt. Dabei wird die erste 
Spur/Sektor-Kennzeichnung ausgelesen und das File bis zum 
Ende verfolgt. Danach wird die errechnete Blockzahl in das Di¬ 
rectory geschrieben und ein Validate der Diskette nach dem 
Programmlauf veranlaßt (ab Zeile 6000). Der Stern vor dem 
Filetyp verschwindet, das File ist wieder in Ordnung. Es kann 
wohl Vorkommen, daß die letzten (maximal 254) Bytes verlo¬ 
rengehen, wenn diese bei dem Zwischenfall noch im Floppy- 
puffer zwischengespeichert waren; dafür ist der Rest aber ge¬ 
rettet. 

Als zweite Information in diesem dritten Feld wird der Filetyp 
ausur; geben. Dieser kann durch Drücken des Anfangsbuch¬ 
staben des gewünschten Filetyps geändert beziehungsweise 
das File mit »D« gelöscht werden. Auch gelöschte Files wer¬ 
den mit angegeben und können (leider nicht bei den Floppy- 
Laufwerken CBM 2040/3040 wegen der völligen Zerstörung 
der Block-Zeiger) wieder eingetragen werden. Bei der Benut¬ 
zung ist aber Vorsicht geboten, denn wenn nach dem Löschen 
schon wiederauf die Diskette geschrieben wurde, können Tei¬ 
le des Files oder Programms zerstört sein. Werden nach ei¬ 
nem Validate zu viele freie Blöcke ausgegeben, dann kann 
man nichts mehr retten und das File sollte wieder gelöscht und 
die Diskette mit dem Validate-Befehl nochmals überprüft wer¬ 
den. 

Die dritte Information, die nur ab DOS-Version 2 vorhanden 
ist (also nicht für 2040/3040), ist der Löschschutz. Er wird 
durch »+« ein- und durch »—« wieder ausgeschaltet und 
schützt vor dem Scratch-Befehl. Der New-Befehl beachtet 
solch einen softwaremäßigen Schutz nicht, hier hilft nur der 
physikalische Löschschutz, das Ankleben einer Schreib¬ 
schutzmarke. Der softwaremäßige Löschschutz wird mit »<« 
hinter dem Filetyp in der Directory angezeigt. 

Die letzten beiden Felder der Zeile zeigen den Startsektor, 
also den Anfang des Files, auf der Diskette. Bei 
2040/3040-Floppy-Laufwerken sieht man, daß mit »Scratch« 
gelöschte Files eine Null in der Anzeige der Spur anzeigen und 
somit nicht mehr reparabel sind. 

Mit der RETURN-Taste, »—« oder »=« kann man den näch¬ 
sten Eintrag in die Anzeige holen. Sucht man nur ein bestimm¬ 
tes File, um etwas zu ändern, so kann man mit »B« gleich bis 
zum Ende des Directory-Blocks »vorspulen«. Dies hat den Vor¬ 
teil, daß es schneller geht. Trotzdem kann man immer mit »t» 
oder »@« ein File zurückgehen, falls es in demselben Block 
liegt. 

Wenn ein File wieder in die Directory zurückgeholt oder ge¬ 
löscht wird, so muß die Diskette später zur korrekten Blockbe¬ 
legung überprüft werden. Will man diesen Vorgang erzwingen, 
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so kann man »V« drücken. Ob überprüft wird oder nicht, steht 
unten in der vorletzten Textzeile hinter »V«. Ein »+« bedeutet, 
daß erst später überprüft wird. 

Mit »E« kann die Bearbeitung jederzeit unterbrochen und 
zum Ende gesprungen werden. Am Ende des Directory, bezie¬ 
hungsweise wenn »E« eingegeben wurde, wird — falls erfor¬ 
derlich durch Löschen, Wiedereintragen oder Schließen eines 
Files — die Diskette mit dem »Validate«-Befehl überprüft. Dies 
kann eine Minute dauern, falls sich viele Files auf der bearbei¬ 
teten Diskette in ungelöschtem Zustand befinden. Danach 
wird die Anzahl der benutzten und der freien Blöcke ausgege¬ 
ben. In Klammern erscheint die Anzahl der freien Blöcke, die 
in dem Directory abgelegt sind. Kommt es zu Unterschieden, 
so sollte, wenn das Directory bis zum Ende durchgeblättert 
wurde, mit »Validate« überprüft werden. Wenn mit »E« oder »X« 
abgebrochen wurde, dann sind wahrscheinlich nicht alle be¬ 
legten Blöcke mitgezählt worden und die Zahlen, die nicht in 
Klammern stehen, sind nicht relevant. Nach Anzeige der 
Blockzahlen ist das Programm bereit, eine neue Diskette zu 
bearbeiten. 


Eingebaute Geräteanpassung 


Am Anfang des Programms wird in eine Unterroutine ab Zei¬ 
le 7 500 gesprungen, die durch Vergleichen eines Bytes mit 
einer Tabelle herausfindet, in welchem Computer sich das Pro¬ 
gramm im Augenblick befindet, und danach alle systemspezifi¬ 
schen Adressen, die vom Hauptprogramm benötigt werden, in 
Variablen einliest. Dieses Vorgehen ermöglicht es, jeden 
Commodore-Computer, der mindestens einen 40 Zeichen 
breiten Bildschirm besitzt, zu benutzen, ohne das Programm 
vollständig verändern zu müssen. Außerdem können auch die 


wurde aus dem Programm »Disk Addr Change« der 1541-Test/ 
Demo-Diskette entnommen und für den Directory-Editor er¬ 
weitert. Auch dieses Unterprogramm kann leicht an neue 
Floppy-Laufwerke angepaßt werden. Es werden mit »M-R« ein¬ 
zelne Bytes aus dem Floppy-ROM gelesen, die charakteri¬ 
stisch für bestimmte Floppy-Laufwerke sind. Anpassungen an 
alle gängigen Commodore-Floppy-Laufwerke sind eingebaut 
(2/4031, 1540/1, 2/3040, 4040, 8050, 8250, wobei CBM 
4040/8050 entweder mit DOS 2.1/2.5 oder DOS 2.7 ausge¬ 
stattet sind). Die Erweiterung auf neue Commodore- 
Laufwerke (zum Beispiel 1571 und SFD 1001/1002) ist natür¬ 
lich möglich. In Tabelle 3 werden alle erforderlichen Variablen 
erklärt und am Beispiel der eingebauten Anpassung demon¬ 
striert. Tabelle 4 zeigt die Bedeutung wichtiger Variablen, die 
bei verschiedenen Laufwerks-Typen unterschiedlich sein 
kann. 


Die Unterroutinen 


Der Programmablauf ist in Tabelle 5 erläutert. Einige interes¬ 
sante, auch für andere Programme verwendbare Unterrouti¬ 
nen sind enthalten. Das Unterprogramm ab Zeile 8000 stellt 
eine neue Eingabe-Routine dar, die die Möglichkeit bietet, die 
Cursorsteuerung sowie Insert/Delete zu erlauben, und trotz¬ 
dem aufzupassen, daß nicht über den Rand des Eingabefel¬ 
des hinausgefahren wird. Außerdem sind zwei Tasten etwas 
anders belegt: Die HOME-Taste setzt den Cursor auf den An¬ 
fang des Eingabe-Feldes und CLR löscht nur das Eingabe- 
Feld, so daß der Bildschirmaufbau nicht aus Versehen einmal 
zerstört werden kann. Zeile 8021 wurde nur speziell für den 
Directory-Editor eingebaut: sie füllt den Rest des Strings bis 
zur Maximallänge IL mit SHIFT-Leerzeichen auf. Das wird zum 


Variable Bedeutung 

CTS 

CBM 

2001 

Computer-Name 
CBM CBM CBM 

3001 4001 8001 

C 64 

C%(0) PEEK(58453) 

136 

152 

32 

76 

189 

Wl 

Zeilenlange des Bildschirms 

40 

40 

40 

80 

40 

CO 

Länge des Tastaturpufiera 

525 

158 

158 

158 

198 

CI 

=0: Cursor eingeschaltet 

532 

167 

167 

167 

204 

C2 

Zähler für Cursorblinken 

533 

168 

168 

168 

205 

C3 

Zeiger auf Start der BS-Zeile 

224 

196 

196 

196 

209 

C4 

augenblickl. Cursorspalte 

226 

198 

198 

198 

211 

C5 

=1: Hochkommamodus (") 

234 

205 

205 

205 

212 

C6 

Länge der Bildschirmzeile 

242 

213 

213 

213 

213 

C7 

augenblickliche Cursorzelle 

245 

216 

216 

216 

214 

C8 

Anzahl der Inserts 

251 

220 

220 

220 

216 

C9 

=128: Repeat auf allen Ta¬ 
sten bei C9=0: kein Repeat- 
Flag 




228 

650 


Tabelle 2. Adressenerklärung zur Computeranpassung 


großen Commodore CBM 600/700 oder die kleinen C 16/C 
116 und der Plus/4 mit dem gleichen Programm laufen, wenn 
die Abfragen entsprechend erweitert werden. Zur eigenen An¬ 
passung des Programms sind in Tabelle 2 die benötigten Sy¬ 
stemadressen aufgeführt. Sie müssen in dieser Reihenfolge 
nach dem PEEK-Wert und dem Namen des Computers ab Zei¬ 
le 7 560 in DATAs abgelegt werden. 

Für alle Commodore-Computer gilt, daß mindestens 16 
KByte RAM vorhanden sein müssen. Hiervon sollten 12 KByte 
zur freien Verfügung übrigbleiben, denn der Directory-Editor 
belegt 10 KByte und benötigt noch einmal 2 KByte für Varia¬ 
blen. 

Auch die Floppy-Laufwerke besitzen unterschiedliche Ei¬ 
genschaften und Eigenarten, die es nötig machen, den 
Geräte-Typ durch das Programm erkennen zu lassen, um ein 
zufriedenstellendes Arbeiten des Directory-Editors mit allen 
Laufwerken zu gewährleisten. Diese Routine (ab Zeile 7 000) 


_ 




Floppy-Name und DOS-Verslon 


Variable 

Bedeutung 

2/3040 

4040 

2/4031 

8050 

8250 

FS 



2.1/2.7 

1540/1 

2.512.7 

/LP 

F%(2) 

Floppy- 

PEEK(65535) *) 

226 

213/198 

254 

242/198 

198 

F%(1> 

Floppy- 

PEEK(16618) 

-99 

-99/0 

—99 

-99/1 

1 

F%(2) 

Floppy- 

PEEK(16556) 

-99- 

_99/_99 

—99 

-99/1 

2 





DR 

Anzahl der Lauf¬ 
werke —1 

i 


0 

1 


BF 

Puffer #0 
(High-Byte) 

17 


3 

17 


TY 

Floppy-Typ 
(siehe Tab, 4) 

1 

2 


3 

4 

•) —99: Nicht zur Unterscheidung benötigt, daher auf »0« gesetzt 


Tabelle 3. Variablenerklärung zur Floppy-Anpassung 


Variable 

Bedeutung TY= 

1 


2 

3 4 

FB 

Anzahl der freien Blöcke 

670 

664 

2052 4133 

DM$ 

Formatkennzeichen auf 

CHR$(1) 

V 

"o" "c" 


Disk 





TTJS 

Dlrectory-Header-Block 


18,00 


39,00 

TD,SD 

erster Directory-Block 


18,01 


39,01 

NB 

Beginn des Namen 
(Byte#) 


144 


6 

AT 

Anzahl der Tracks +1 


36 


78 

DT 

Anzahl der Dateitypen 

4 



5 


FT$ Dateilypen (im Augenblick: DEL, SEQ, PRG, USR, REL) 

Typ 1: 2040/3040 V1.0 

Typ 2: 4040V2.1/2.7, 1540/1 V2.6, 4031/2031 V2.6, (SFS 491) 

Typ 3: 8050 V2.5/2.7 

Typ 4: 8250/LP V2.7, (SFD 1001/1002) 


Tabelle 4. Variablenerklärung für verschiedene Floppy- 
Laufwerke 
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Ab Zeile 8070 befindet sich eine Routine, die einen Text in¬ 
klusive aller Steuerzeichen ausdruckt. Auch ein sonst »unver¬ 
dauliches« RETURN-Zeichen (CHR$(13)) wird mitgedruckt. 
Da Sie mit einem fehlerhaft arbeitendem Directory-Editor eini¬ 
gen Schaden anrichten können, sollten Sie erst nach dem 
sorgfältigen Austesten des Programms mit Disketten, von de¬ 
nen ein Doppel existiert, die Arbeit mit dem Directory-Editor 
beginnen. (Dieter Temme/ev) 


Tabelle 5. Programmaufbau des Directory-Editors 

Löschen eines möglichen Reststrings in der Directory benö¬ 
tigt und kann bei eigener Anwendung der Eingabe-Routine ge¬ 
gebenenfalls weggelassen werden. Die Eingabe von SHIFT- 
RETURN bewirkt, daß der Rest ab der Cursor-Position ge¬ 
löscht und die Eingabe wie bei RETURN beendet wird. 

Die Routine ab Zeile 8040 scrollt einen beliebigen Bild¬ 
schirmbereich von Zeile XI bis X2 aufwärts, falls der Cursor 
in Zeile X2 steht. Dies geschieht durch »INPUT« vom Bild¬ 
schirm und Ausgabe der eingegebenen Strings je eine Zeile 
höher. 


Ab Zeile 8060 steht die Warteschleife bis zum Drücken ei¬ 
ner Taste. Dabei wird der Cursor eingeschaltet und an eine vor¬ 
definierte Stelle auf den Bildschirm gesetzt. In PR$ ist das 
Promptzeichen enthalten. Wenn das Unterprogramm von Zei¬ 
le 2 000 her angesprungen wird, sieht man ein »>«. Aus ei¬ 
nem anderen Unterprogramm heraus (zum Beispiel Anleitung) 
zeigt sich ein » < «. Daran erkennt man, in welchem Modus man 
sich gerade befindet. Die gedrückte Taste wird direkt daneben 
angezeigt. 


ifi 


i-oi-eniT db 


<C>1984 
BV 

D.TEMME 


V2.8 >■ DR 40 064 


1541/2031V2.6 


NAME= DIETER TEMME 


ID= 64-'ER 


001 

001 

001 

042 

001 

001 

001 

>001 


FRE IHERRENSTR.15 
510 0 _AAC HE N 

di572.5 ... 


+DI-DI-EDITOR+ 


USB 
U SR 
U SR 
PR (3 
USR 
LI SR 
USR 
USR 


17 

17 

17 

17 

19 

19 

19 

19 


00 

01 

02 

11 

I! 


V- 

BLKS BENUTZT = 949 

FRE1= 615 <615) 

fVL/X , I./F/01N./ D / S P U R / # / +—/ <-/ B/1,/V/E 


Das Hauptmenü des Disk-Directory-Editors 


1000 REM" *** DI—DI—EDITOR V2.B *** “ 

1010 REM DIETER TEMME, -03.01.1985- 
1020 REM FREIHERRENSTR. 15 
1030 REM 5100 AACHEN 
1040 REM TEL. 0241/13415 

1050 REM - 

1060 FD=8:REM » FLOPPY DEVICE << 

1070 FT*=“DEL SEQ PRG USR REL“:REM FILETYP 
EN 

1080 LB=256:B2=12B:SC=64:BT=7:C*=CHR*<13>: 

DE*=CHR*(20):ZE*=CHR*(0):TW*=CHR*(2) 
1090 BR*="UA 2 ”:BW*=”UB 2 ":TE*="U0":MR*= 
"M-R":MW*="M-W" 

1100 CH*="(HOME>“:CC*="(CLR>":CR*="(RIGHT) 
":CL*=“(LEFT >":CD*=" (DOWN >":CU*="(UP > 
":RV*="(RVSON >":R0*=”(RVOFF}" 

1110 BE*=CHR*(7>:PP=59468:LE=0:PRINT CH*CH 
*CC*CHR*(142)CHR*(8)"BITTE WARTEN!" 
1120 D*=CH*:F0R 1=1 TO 25:D*=D*+CD*:S*=S*+ 
"(2SPACE>":Z*=Z*+CL*+CL*:FR=FRE(0):NE 
XT 

1130 Z*=BE*+LEFT*(S*,36>+LEFT*(ZS,36>: U*=C 
HR*(160):T*=U* 

1140 OPEN 1,FD,15,TE* 

1150 GOSUB 7000:BF*=CHR*(BF>:DR*=CHR*(DR+4 
8) 

1160 GOSUB 7500:T*=T*+LEFT*(S*,(WI-40)/2): 
T=LEN(T*>+1 

1170 READ R*:IF R*<>">S"GOTO 1170 
1180 DIM M*(18> ,B*(14) : FOR 1 = 1 TO 18.-READ 
M*(I>:NEXT:PRINT CCS; 

IW: FOR 1 = 1 TO 9: PRINT T*M*(I> : NEXT 
1200 FOR 1=1 TO 11:PRINT T*M*(10):NEXT 
1210 FOR 1=11 TO 15:PRINT TSM*(I):NEXT 
1220 IF ER THEN PRINT LEFT*(D*,24>TAB(T)RV 
*Z*ER*CH*CD*CD*CD*:IF ER<3 THEN END 
1230 IF ER THEN CLOSE 1:OPEN 1,FD,15:REM R 
E-INIT 

1240 PRINT LEFT*(D*,6)TAB(T+l1)DR*TAB(T+l 3 
)CT*TAB(T+23)F* 

1250 BZ*=T*+M* (14) : IF C9 THEN POKE C9,128 
2000 REM *** EINGABE *** 

2010 PR*=">": GOSUB 8060: G*=K*: PR*=“< •• 

2020 IF BZ THEN LN=PEEK(C7>:PRINT LEFT*(D* 
,24)BZ*:GOSUB 8080:BZ=0 
2030 IF G*=“A"OR G*=" "THEN GOSUB 3000 
2040 IF G*="L“THEN GOSUB 2800 
2050 IF G*="X"THEN G*="E":EX=1 
2060 IF OP=0 GOTO 2220 

2070 IF 6*="B"THEN GB=1:G*=C*:IF GZ=1 THEN 
GZ=0:GB=0:G*="E":EN=1 

2080 IF G*="N"OR G*=CR*THEN PRINT TAB(T+5) 
;:IL=16:G0SUB 8000:N*=IX*:PRINT CU*; 
2090 IF G*="*"OR G*=": "THEN IF FT THEN IF 
PT*>""THEN IF C AND ,FT<>4 TUEN GOSUB 
2500:PR=1 

2100 IF G*="+"OR G*=";"OR G*="-“THEN IF TY 
>1 THEN S=-(G*< >"-’,) «SC: PR=1 
2110 IF G*="t"OR G*="@“TWE* IF ZZ>0 THEN P 
RINT TAB (T) " "CU*«NG=MG+2:ZW=1:ZZ=ZZ- 
2:G*="► 

2120 IF G*=" OR G*=C*OR G*="=''THEN IF (EN 
OR ER)=0 THEN GOSUB 5000:IF GB THEN I 
F ZZ<7 GOTO 2120 

2130 IF EN=1 AND GB=1 THEN GZ=1:PT*=" ":PR 
INT CU*TAB(T)">"CU*:IF ZZ THEN ZZ=ZZ- 
1:EN=0 

2140 IF GZ=1 THEN GB=0:IF ER=0 GOTO 2000 
2150 IF EN=1 GOTO 2250 

2160 IF G*="V"THEN LN=PEEK(C7>:VA=1:V0=1:P 
RINT LEFT*(D*,22)TAB(T+l)"+":GOSUB 80 
80 


<251 > 

< 19B> 
<001 > 
<176> 

< 162> 

< 127> 
<091 > 

< 020 > 

< 159> 

< 177> 

<00B> 

<240> 

<167> 

<045> 

<249> 

<134> 

< 220 > 

<201 > 

< 126> 
<160> 
<253> 
<213> 

< 101 > 

<016> 

< 152> 

< 133> 
<222> 
<006> 

<233> 

<230> 

< 129> 
<019> 
<206> 

<051 > 

<036> 

< 175> 

< 162> 

< 002 > 

<073> 


<207> 
< 112 > 
<003> 


<249> 


Listing »Disk-Directory-Editor«. Beachten Sie bitte die Ein¬ 
gabehinweise auf Seite 6. 


1000-1999 

Initialisierung der Variablen, Aufruf von 7000 und 

7500 

2000-2499 

Eingabe-Warteschleife und Verarbeitung der Befehle 

2500-2999 

Unterprogramm: Schließen eines Files 

2800-2999 

Unterprogramm: Umschaltung Groß-/Kleinschreibung 

3000-3499 

Unterprogramm: Ausgabe der Anleitung 

3500-3999 

Unterprogramm: Ein- und Weitergabe eines Floppy- 
kommandos 

4000-4999 

Unterprogramm: Initialisierung des Editors 

5000-5999 

Unterprogramm: Anzeige des nächsten Eintrags 

6000-6999 

Unterprogramm: Ende des Directorys, Anzeige der 
Blockzahl 

7000-7099 

Unterprogramm: Erkennung des Floppy-Typs 

7100-7199 

Vorbereitung von 2040/3040 

7200-7299 

Data: Floppy-Laufwerk-Erkennung (Tabelle 3) 

7300-7399 

Data: Merkmale gleicher Typen (Tabelle 4) 

7400-7499 

Data: erweitertes M-R für 2/3040 

7500-7599 

Unterprogramm: Erkennung des Computer-Typs 

7600-7699 

Data: computerspezifische Variablen (Tabelle 2) 

8000-8999 

Unterprogramme: 8000 Eingabe-Routine 

8030 Inget-Routine 

8040 Bildschirmroll-Routine 

8050 Diskettenfehler behandeln 
8060 Taste holen 

8070 Ausgabe mit Steuerzei¬ 
chen 

8080 Cursor auf Zeile LN stel¬ 
len 

9000-9099 

Data: Bildschirmaufbau 

9100-9199 

Data: Änderungen des Aufbaus für die Anleitung 

9500-9999 

Data: Anleitung 
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Floppy 


2170 

IF G*="E"THEN EN=l:BOSUB 5000:GOTO 22 


4090 

PR I NT# 1, MR*CHR* (NB+18)BFSCHR*(5+ < TY=1 



50 

<053> 


>):GOSUB 8030:PRINT CU*TAB(T+30); 

<052> 

2180 

IF PT*=""GOTO 2210 

< 113> 

4100 

GOSUB 8070:PRINT C*CU*TAB(T+30);:IL=5 


2190 

FÜR 1=0 TO DT—1:IF G*=MID*(FT*,1*4+1, 



+(TY=1):GOSUB 8000:PRINT 

< 134> 


1)THEN FT=I:I=DT:C=OC:PR=1:IF FT=0 TH 


4110 

PRINT#1,MW*CHR*(NB)BF*CHR*(23+(TY=1)> 



EN C=B2 

<168> 


N*"—”IX*:PRINT#1,BW*TT;TS:Z Z=0:OP=1 

<046> 

2200 

NEXT 

< 178> 

4*120 

ZB=0:VA=0:VO=0:LN=PEEK(C7):PRINT LEFT 


2210 

: 

< 154> 


*(D*,22)TAB(T+l)"-“:ZT=TD:ZS=SD 

< 160> 

2220 

IF 0P=1 GOTO 2260 

<190> 

4130 

IL=16:GOTO 8080 

<065> 

2230 

IF G*="I"THEN GOSUB 4000;ON-<ER=0)GOS 


4200 

ER=3:ER*=“»> FALSCHES DISK-FORMAT" : R 



UB 5240:IF ER GOTO 1220 

<074> 


ETURN 

<089> 

2240 

IF G*="F"THEN GOSUB 3500 

<032> 

5000 

REM *** NAECHSTER EINTRAG *** 

< 178> 

2250 

IF G*="0"OR G*=" 1 "THEN IF VAL(G*X=DR 


5010 

IF EN=1 GOTO 5080 

<080> 


THEN DR*=G*:PRINT LEFT*(D*,6)TAB<T+1 


5020 

PRINT TAB(T>" ":PRINT#1,MW*CHR*(K+3> B 



1>G* 

<253> 


F*CHR*(16)N*:IF ZR THEN PRINT CU*CU*; 


2260 

IF EN THEN GOSUB 6000 

<226> 


: ZR=0 

< 155> 

2270 

IF PR=1 THEN GOSUB 5190:PR=0 

<085> 

5030 

PRINT#!,MW*CHR*(K)BF*CHR*(1)CHR*(S OR 


2280 

IF EX=1 THEN ER=2:ER*="»> PROGRAMMEN 



(B2-C)0R FT) 

<000> 


DE 

<086> 

5040 

IF(OF=0 AND FT >0)OR(OF>0 AND FT=0> THE 


2290 

IF ER GOTO 1220 

< 167> 


N VA=1:LN=PEEK(C7) 

<080> 

2300 

GB=0:GOTO 2000 

<145> 

5050 

IF VO=0 AND VA=1 THEN LN=PEEK(C7):PRI 


2500 

REM *** FILE SCHLIESSEN *** 

< 189> 


NT LEFT*(D*,22)TAB(T+l)"+":GOSUB 8080 


2510 

PRINT#1 ,MR*CHR*(K+1)BF*TW*:GET#1 ,H», I 



:VO=l 

< 161 > 


*:IF H*=""OR FT=4 THEN RETURN 

< 131 > 

5060 

IF ZZ<7 THEN PRINT#1,MR*CHR*(ZZ*32+39 


2520 

PRINT TAB (T) "*"CU*: OPEN 3 , FD ,3,"#1":B 



)BF*CHR*(1>:GET#1,NF* 

< 168> 


G*=CHR*(BF+1) :BI<=0 

<030> 

5070 

IF(NT>0 0R(I<7 AND NF*>""))THEN GOSUB 


2530 

RT=ASC(H*>:RS=ASC(I*+ZE*>:PRINT#1,"UA 



B040 

<164> 


"3;DR*RT;RS:BK=BK+1 

< 189> 

5080 

IF EN=1 THEN ZZ=7 

<064> 

2540 

PR I NT# 1 , MR*CHR* (3) BG*TW*: GET# 1 , H*, I *: 


5090 

ZZ=ZZ+1:IF ZZ>7 GOTO 5220 

< 151 > 


IF H*<CHR*(AT)AND H*>”"GOTO 2530 

<243> 

5100 

K=ZZ*32+2:PRINT#1,MR*CHR*(K+3)BF*CHR* 


2550 

PRINT#1,MW*CHR*(K+28)BG*TW*CHR*((BK-3 



(16):GOSUB 8030:IF H*=""THEN EN=1:RET 



276B)AND(LB-1))CHR*(BK/LB) 

<105> 


URN 

<123> 

2560 

IF H*>""THEN PRINT#1,MW*ZE*BG*TW*ZE*Z 


5110 

N*=I*:PRINT#1,MR*CHR*(K)BF*CHR*(1):GE 



E* : PR I NT# 1 , " UB " 3 ; DR*RT ; RS 

< 128> 


T#1,I*:FT=ASC(I*+ZE*) 

<069> 

2570 

VA=1:C=0:OC=C:CLOSE 3:FR=FRE(0):RETUR 


5120 

S=SC AND FT:C=B2—(B2 AND FT):FT=(BT)A 



N 

<167> 


ND FT:OF=FT:OC=C:IF FT=0 THEN OC=0 

< 191 > 

2800 

REM *** LETTER ON/OFF *** 

< 117> 

5130 

PRINT TAB(T+5);:IF NG=0 THEN I*=N*:GO 


2810 

IF RIGHT*(CT*,3> ="001"THEN POKE PP, (P 



SUB 8070 

<091 > 


EEK(PP)AND 253)OR(2-LE) 

<211 > 

5140 

PRINT#1,MR*CHR*(K+28)BF*TW*:GET#1,K*, 


2820 

IF RIGHT*(CT*,3)<>"001"THEN PRINT CHR 



L*:BK=ASC(K*+ZE*)+LB*ASC <L*+ZE*> 

< 169> 


*(14-128*<LE>0)); 

< 142> 

5150 

IF NG=0 THEN IF FT< >0 THEN ZB=ZB+BK 

< 177> 

2830 

LE=2-LE:RETURN 

<243> 

5160 

PRINT C*CU*TAB(T)">"RIGHT*(STR*(1000+ 


3000 

REM *** ANLEITUNG *** 

< 116> 

£"• ' , 3) ; : IF NG THEN NG=NG-1 

<230> 

3010 

LN=PEEK(C7):PRINT LEFT*(D*,7):OPEN 3, 


5170 

PRINT#1,MR*CHR*(K+1)BF*TW*:GET#1,PT*, 



3:FOR 1=0 TO 14:INPUT#3,B*(I>:PRINT C 



K*:PRINT TAB(T+31); 

<176> 


L* 

^203> 

5180 

PRINT RIGHT*(STR*(100+ASC(PT*+ZE*>),2 


3020 

NEXT:PRINT LEFT*(D*,7)T*M*(16):FOR 1= 



)CR*RIGHT*(STR*(100+ASC(K*+ZE*)),2); 

<110> 


0 TO 14:PRINT T*M*(17):NEXT:PRINT T*M 


5190 

PRINT C*CU*TAB(T+25)” “;:IF C THEN IF 



*(18) 

<246> 


FT THEN PRINT CL*"*"; 

<216> 

3030 

IF AN=1 THEN RESTORE:PRINT LEFT*(D*,8 


5200 

PRINT MID*(FT*,FT*4+1,3)" “;:IF S>0 A 



)TAB(T)RV*Z*TAB(T+12)"BITTE WARTEN 

< 161 > 


ND TY>1 THEN PRINT CL*"<"; 

<074> 

3040 

READ R*:IF R*<>">A"GOTO 3040 

<215> 

5210 

PRINT C*CU*;:FR=FRE(0):RETURN 

<16B> 

3050 

PRINT LEFT*(D*,7):FOR 1=0 TO 4:READ B 


5220 

PRINT#1,BW*ZT;ZS:IF EN=0 THEN ZS=ASC( 



*:PRINT TAB(T)Z*B*:NEXT 

<217> 


BL*+ZE*>:ZT=NT:IF ZT=0 THEN EN=1 

< 194> 

3060 

PRINT LEFT* (D*, 12) .-FOR 1=0 TO 9: READ 


5230 

IF EN=1 THEN RETURN 

<213> 


B*:PRINT TAB(T)Z*B*:NEXT:GOSUB 8060 

<093> 

5240 

PRINT#1,BR*ZT;ZS:PRINT#1,MR*ZE*BF*TW* 


3070 

READ B*:IF B*<>"*"GOTO 3060 

< 111 > 


: GET# 1 , TR* , BL*: NT=ASC (TR*+ZE*) : Z Z=0 

< 056 > 

3080 

PRINT LEFT* (D*, 7) T*M* (7) : FOR 1=0 TO 1 


5250 

GOTO 5100 

< 158> 


4:PRINT B*(I):NEXT 

<08B> 

6000 

REM *** ENDE *** 

<252> 

3090 

PRINT T*M*(13):GOSUB 8080 

< 125> 

6010 

PRINT LEFT*(D*,24);:IF VA=0 GOTO 6040 

<091 > 

3100 

AN= 1: POKE C0,0:FOR 1=0 TO 14: B* (I) =••" 


6020 

PRINT TAB(T)Z*"<5SPACE>UEBERPRUEFE BL 



:NEXT:FR=FRE(0):CLOSE 3:RETURN 

<243> 


OCKBELEGUNG"CU*:PRINT#l,"V"DR*:GOSUB 


3500 

REM *** DISK-KOMMANDO *** 

<033> 


8050 

<214> 

3510 

PRINT LEFT*(D*,24)T*M*(17)CU*C*TAB(T) 


6030 

IF ER THEN RETURN 

< 208 > 


"0";:IL=35:IJ=1:GOSUB B000:IJ=0:BZ=1 

<231 > 

6040 

PRINT BZ*C*CU*CU*CU*TAB(T+17)RIGHT*(S 


3520 

IF LEFT*(IX*,1)< >"U"THEN PRINT#1,IX*: 



TR*(1000+ZB),3); 

<184 > 


GOTO 8050 

<220> 

6050 

PRINT TAB(T+27)RIGHT*(STR*(1000+FB-ZB 


3530 

RETURN 

<030> 


>,3)CR*CR*; 

< 199> 

4000 

REM *** START *** 

<254> 

6060 

CLOSE 2:OPEN 2,FD,0,.. 


4010 

BR*=LEFT*(BR*,5)+DR*+",":BW*=LEFT*(BW 



ET#2, B* , B*, B*, B*, B*, B* 

< 135> 


*,5)+DR*+"," 

<067> 

6070 

GET#2,B*:IF B*>""GOTO 6070 

<230> 

4020 

PRINT LEFT *(D*,8)T*M*(8)CD*:FOR 1 = 1 T 


6080 

GET#2,B*,B*,K*,L* 

<005> 


0 11:PRINT T*M*(10):NEXT:PRINT CD*T#M 


6090 

PRINT RIGHT*(STR*(1000+ASC(K*+ZE*)+LB 



*(12) 

< 107> 


*ASC(L*+ZE*)),3) 

<23B> 

4030 

PRINT LEFT*(D*,24)TAB(T> RV*Z*"I6SPACE 


6100 

CLOSE 2:OP=0:EN=0:FR=FRE(0):RETURN 

<242> 


JBITTE DISKETTE EINLEGEN":GDSUB 8060 

<186> 

7000 

REM *#* FLOPPY-TYP *** 

<058> 

4040 

PRI NT# 1 , " I " +DR* : VA=0: X1 = 10:X2=20:GOSU 


7001 

READ N: DIM F7.(N):FOR 1=0 TO N: READ X: 



B 8050:IF ER THEN RETURN 

<084> 


PRINT#1,MR*CHR*((X—32768)AND 255)CHR* 


4050 

PRINT CU*BZ*:OPEN 2,FD,2, "#0" :PRINT#1 



(X/256) 

<200> 


,BR*TT;TS:GOSUB 8050:IF ER THEN RETUR 


7002 

GET#1, I*: F7. (I) =ASC (I*+ZE*): NEXT: ER=0: 



N 

<203> 


TY=0:PRINT#1,TE* 

<227> 

4060 

PRINT#1,MR*TW*BF*CHR*(1):GET#1,DO*:IF 


7003 

J=0:FOR 1=0 TO N:READ X:IF X>-1 THEN 



DO*< >DM*GOTO 4200 

<239> 


IF XOFX(I)THEN J=1 

< 127> 

4070 

PRINT#1,MR*CHR*(NB)BF*CHR*(16):GOSUB 


7004 

NEXT:READ F*:IF F*<>"***"THEN READ DR 



8030:PRINT LEFT*(D*,8)TAB(T+6): 

< 149> 


,BF,TY:IF J GOTO 7003 

<042> 

4080 

GOSUB B070:PRINT C*CU*TAB(T+6);:IL=16 






:GOSUB 8000:N*=IX* 

<215> 

Listing »Disk-Directory-Editor« (Fortsetzung) 
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Floppy 


7005 IF F»="***"THEN ER=1:ER*=">>> FLOPPY- 
TYP UNBEKANNT":RETURN 

7006 READ R*:IF R*< >">T"GOTQ 7006 

7007 READ J,FB,DM#,TT,TS,TD,SD,NB,AT,DT:IF 

JOTY GOTO 7007 

7099 IF TY>1 THEN RETURN 

7100 READ R*:IF R*<>“>M"ßOTO 7100 

7101 MR*="UC:":DM*=CHR*(1):I*=CHR*(19)+CHR 
*(1>:READ J 

7102 FOR 1=0 TO J:READ J:PRINT#1 ,MW*CHR*(I 
)I*CHR* <J):NEXT:RETURN 

7200 REM +++ DATA: FLOPPY-TYPEN +++ 

7201 DATA 2,65535,16618,16556:REM FPEEKS 

7202 REM FX0.FX1 ,F7.2, "NAME C 6 SPACE>DOS" ,DR 
,BF,TY 

DATA 226 , -99, -99, " 2040/3040V1.0 ", 1,01 

7.1 

DATA 213,-99,-99,"4040I5SPACE >V2.1",1 
,017,2 

DATA 242,-99,-99,"8050 C5SPACE >V2.5",1 
,017,3 

DATA 254,-99,-99,"1541/2031V2.6",0,00 

3.2 

DATA 198,000,-99,"4040 C5SPACEJV2.7",1 
,017,2 

DATA 198,001,001,"8050 C5SPACE >V2.7",1 
,017,3 

DATA 198,001,002,“8250C5SPACE >V2.7",1 
,017,4 

7298 DATA -99,-99,-99,"***" 

7299 DATA">T":REM ERKENNUNG 

7300 REM +++ DATA: TYPEN-AUSWAHL +++ 

7301 REM TYP,BLKS,DOS,NAME ,DIREC.NBY,AT,D 
T , DOS 


7203 

7204 

7205 

7206 

7207 

7208 

7209 


<223> 
<251 > 

<240> 

<057> 

<074> 

<016> 

<211 > 
<069> 
<142> 

<134> 

< 107 > 
<063> 
<091 > 
<175> 

< 197> 

<088> 

<126> 

<093> 

< 222 > 

<050> 

<015> 

<052> 

<211 > 

<091 > 
<228 > 


7400 REM +++ DATA: 2040/3040 M-R +++ <001> 

7401 DATA 37,104,104,160,0,177,3,141,180,6 
6,141,224,16,177,3,153,180,67,200,196 <023> 

7402 DATA 5,144,246,169,13,153,180,67,200, 

32,153,231,169,181,133,93,76,7,253 <250> 

7500 REM *** COMPUTER-TYP *** <005> 

7501 READ R*:IF R*<>">C"GOTO 7501 <174> 

7502 READ N: DIM C7.(N):FOR 1=0 TO N: READ X: 

C7. < I) =PEEK (X) : NEXT <202> 

7503 J=0:FOR 1=0 TO N:READ X: IF XOC%(X>TH 

EN J=1 <214> 

7504 NEXT:READ CT*:IF CT*="***“THEN PRINT 

CD*"7UNBEKANNTER COMPUTER";:END < 097> 

7505 READ WI ,C0,C1 ,C2,C3,C4,C5,C6,C7,C8,C9 

:IF J GOTO 7503 <074> 

7520 IF CT*="C=64"THEN POKE 53280,0:POKE 5 

3281,0: REM BORDER&GRQUND=SCHWARZ <134> 

7521 IF RIGHT*(CT*,3)="001"THEN POKE PP,12 

:REM GROSS/GRAPHIK <193> 

7522 IF RIGHT*(CT*,3)<>"001"THEN PRINT CHR 

*(158);:REM CURSOR=GELB <093> 

7598 RETURN <034> 

7599 DATA">C“:REM ERKENNUNG <234> 

7600 REM +++ DATA: COMPUTER-TYPEN +++ <219> 

7601 DATA 0,58453:REM CPEEKS <043> 

7602 REM C7.0.NAME , WI, C0, CI, C2, 

C3, C4, C5, C 6 , C7, CB, C9 <015> 

DATA 136,"CBM 2001", 40,525,532,533,2 
24,226,234,242,245,251,0 <173> 


7302 

DATA 

fl 

1 

, 670, 

-1-,18,00,18,01, 

144,37, 

7303 

« 

DATA 

2 

, 664, 

"A”,18,00,18,01, 

144,37, 

7304 

J 

DATA 

b: 

3 

,2052, 

"C",39,00,39,01, 

6,7B, 

7305 

wJ 

DATA 

CT 

4 

,4133, 

“C",39,00,39,01, 

6,78, 

7399 

DATA' 

■>M 

" : REM 

ERKENNUNG 

6 * 


7603 

7604 

7605 

7606 

7607 


DATA 152,"CBM 3001", 40,158,167,16B,1 
96,198,205,213,216,220,0 <082> 

DATA 032,"CBM 4001", 40,158,167,168,1 
96,198,205,213,216,220,0 <051> 

DATA 032,"CBM 8001", 80,158,167,168,1 
96,198,205,213,216,220,228 <162> 

DATA 189,"C=64" , 40,19B,204,205,2 

09,211,212,213,214,216,650 <241> 

7608 DATA -99,"***" <118> 

8000 REM *** INPUT ROUTINE *** <027> 

8001 REM IL=MAX. LAENGE,IX*=EING. STRING <046> 

8002 IX=POS(0)+IL-1:IY=PEEK <C3)+PEEK(C3+1) 

*LB+IX:OPEN 4,0:POKE C6.IX+1 <072> 

8003 IP=PEEK(IY—IX+POS(0)):POKE CB,0:POKE 

C5,0:POKE C2,1:POKE C1,0 <025> 


8004 WAIT C0,15:GET IY*:POKE Cl,l:POKE IY- 
IX+POS(0),IP:IF PEEK(IY)=96 THEN POKE 

IY,32 <085> 

8005 IF(ASC(IY*+ZE*)AND 127X32 GOTO 8008 <159> 

8006 IF POS(0)>IX GOTO 8003 <222> 

8007 PRINT IY*;:GOTO 8003 <166> 

8008 IF IY*=CHR*(148)THEN IF PEEK(IY)=32 G 

OTO 8006 <220> 

8009 IF IY*=CHR*(141)THEN FOR 3Z=IY-IX+POS 

(0)TO IY:POKE IZ,32:NEXT:IY*=C* <049> 

8010 IF IY*=C*GOTO 8017 <247> 

8011 IF IY*=RV*OR IY*=RO*GOTO 8007 <219> 

8012 IF IY*=CR*GOTO 8006 <127> 

8013 IF IY*=CC*THEN FOR IZ=IY-IL+1 TO IY:P 

OKE IZ,32:NEXT:IY*=CH# <140> 

8014 IF IY*=CH*THEN POKE C4,IX-IL+1:GOTO 8 

003 <006> 

8015 IF I Y*< >DE*AND IY*OCL*GOTO 8003 <221 > 

8016 ON(POS(0)>IX—IL+1)+2 GOTO 8007,8003 <135> 

8017 DEF FN AS(X)=(X AND 63)0R((X AND 64)* 

2)OR <((X AND 160> =0> *—64>:IX*="":IX=0 <229> 

8018 FOR IZ=IY TO IY-IL+1 STEP-1:IY=FN AS( 

PEEK(IZ)) <157> 

8019 IF IX OR(IY AND 127)-32 THEN IX*=CHR* 

(IY)+IX*:IX=255 <133> 

8020 NEXT <156> 

8021 IF IJ=0 THEN IF LEN(IX*XIL THEN IX*= 

IX*+U*:GOTO 8021 <129> 

8022 POKE C6,WI-1:PRINT:CLOSE 4:RETURN <157> 

8030 REM *** INGET *** <067> 

8031 I*="":GET#1,H*:IF H*THEN INPUT#1,I* <172> 

8032 I*=H*+I*:RETURN <099> 

8040 REM *** SCROLL UP *** <097> 

8041 SR=0: IF PEEK(C7XX2 THEN RETURN <221 > 

8042 PRINT LEFT*(D*,Xl + 1);:OPEN 3,3 <023> 

8043 INPUT#3,X*:PRINT CL* <1B4> 

8044 PRINT CU*CU*X*CD* <195> 

8045 IF PEEK(C7)<X2 GOTO 8043 <224> 

8046 PRINT CU*T*M*(10)CU* <176> 

8047 CLOSE 3:SR=1:RETURN <161> 

8050 REM *** DISK-FEHLER? *** <046> 

8051 INPUTttl,ER,ER*,TR,BL:IF ER=0 THEN RET 

na» URN <245> 

8052 ER*="***"+STR*(ER)+ " :"+ER*+" " <142> 

8053 IF TR OR BL THEN ER*=ER*+”IN "+RIGHT* 

(STR*(100+TR),2)+“,"+RIGHT*(STR*(100+ 

BL),2) <094> 

8054 BZ=1:OP=0:ER=4:RETURN <022> 

8060 REM *** TASTE *** <139> 

8061 L2=LN:LN=PEEK(C7):PO=POS(0):PRINT LEF 

T*(D*, 6 )TAB(T+5)PR*" "CL*; <138> 

8062 POKE CI,0:POKE C0,-(PEEK(C0)>0):WAIT 

C0,15:GET K*:POKE Cl,l <000> 

8063 K*=CHR*(ASC(K*+ZE*)AND 127):POKE PEEK 

(C3)+PEEK(C3+1> *LB+PQS(0),141 <1B1> 

8064 IF K*<>C*THEN POKE CB,1:PRINT K* <038> 

8065 GOSUB 8080:PRINT TAB(PO);:LN=L2:RETUR 

N <026> 

8070 REM *** PRINT MIT STEUERZEICHEN *** <170> 

8071 POKE CB,LEN(I*):FOR IZ=1 TO LEN(I*):I 

X=ASC(MID*(I*,IZ)> < 116> 

8072 IF (IX AND 127)013 THEN PRINT MID*(I* 

,IZ,1);:GOTO 8074 <026> 

8073 PRINT" “;:POKE PEEK(C3> +PEEK(C3+1)*LB 

+POS(0)—1,13—(IX AND 128)*64 <157> 

8074 NEXT:RETURN <139> 

8080 REM *** IN DIE RICHTIGE ZEILE *** <013> 

8081 PRINT LEFT *(D*,LN+1>;:RETURN <141> 

8999 DATA">S":REM ERKENNUNG <112> 

9000 REM +++ DATA: SCHIRMBILD +++ <060 

9001 DATA" 

.«-*-»-*-*. ? <05B> 

9002 DATA"^{RVSON>^*31? <2SPACE)R*5R’C2SPACE> 

ÜFR'&TR'i , r5'i±rS'iB , <:RV0FF> = (C) 1984 = < 155> 

9003 DATA“^<RVSON>- .---**- 

~5Tn?{RV0FF >-<2SPACE)BY {3SPACE > = < 028 > 

9004 DATA" = <RVS0N>7S.yF<2SPACE>7±yr<2SPACE> 

T&YZäXr ? YiXr^VfRVOFFJ^D.TEMME^ <178> 

*-*.»-*-*P < 139> 

9006 DATA" V2.8 = > 3 DR# -<9SPACE>-<13SPACE) 

c; <162> 

■*-*.*_*.*g <060> 
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9008 

9009 

9010 

9011 

9012 

9013 

9014 

9015 

9100 

9101 

9102 

9103 

9499 

9500 

9501 

9502 

9503 

9504 

9505 


DATA" JMAME= C20SPACE > = ID={7SPACE> = < 019 > 

•SiTTiS» <128> 

DATA" —T4SPACE> - C19SPACE}^<5SPACE > = C2S 
PACE> = <2SPACE>^ <044> 

üESiTJ < 185> 

DATA"-V-^BLKS BENUT ZT= t4SPACEIzfREI = < 

5SPACE >(T3SPACE >)3 <201> 

taar ——< 1 17> 
DATA"^A/L/X,I/F/01 , N/D/SPUR/*/+-/*-/B/ 

T/V/Ed <219> 

DAT A '• 

(HOME > < 157 > 

REM •*•++ DATA: RAHMEN (ANL.) +++ <027> 

JWJWtP " ~.~~~~~~ “ .<030> 

DATA" = <36SPACE>^ <139> 

DATA" 

<117> 

DATA">A":REM ERKENNUNG <038> 

REM +++ DATA: ANLEITUNG +++ <065> 

d ata " aaaaaaaaaaaaaaäaaäajMsaaaaiayMtä3t& 


■*♦* 7? <040> 

DATA" = <6SPACE >DISK-DIRECTORY-EDI TOR <7 
SPACE> = <049> 

DATA" = <4SPACE>K URZANLEITUN 
G<5SPACE> = <0B2> 

DATA " ' 7*«>»_«_**.»KK**-»A****>-*»«---«**«*-*»*-». 
dUtfiy <172> 

DATA" <130> 


9506 DATA"<A/SPC>T3SPACE>AUSGABE DIESER AN 

LEITUNG <106> 

9507 DATA"<L>I7SPACEJGROSS— ODER KLEINSCHR 

IFT <236> 

9508 DATA"<I>I7SPACE>START DES EDITORS <004> 

9509 DATA"<F>{7SPACE>EINGABE FLOPPY-KOMMAN 

DO <165> 

9510 DATA "'< 0/1 > I5SPACE1LAUFWERKS—NUMMER FE 

STLEGEN <066> 

9511 DATA"d1SPACE>(FALLS DOPPEL-LAUFWERK) <044> 

9512 DATA"<N/RIGHT> NEUEN NAMEN EINGEBEN <178> 

9513 DATA"<S/P/U/R> FILETYP NEU FESTLEGEN <038> 

9514 DATA"<D>I7SPACE>FILE LOESCHEN <004> 

9515 DATA,+ <150> 

9516 DATA"<*><7SPACE>OFFENES FILE SCHLIESS 

EN <221> 

9517 DATA"<+/—>I5SPACE >FILESCHUTZ SETZEN/A 

UFHEBEN <083> 

9518 DATA"<v/=/RET> EINTRAG WEITERGEHEN <251> 

9519 DATA"<B><7SPACE>BLOCK WEITERGEHEN <044> 

9520 DATA"< t/@X5SPACElEINTRAG ZURUECKGEHE 

N <119> 

9521 DATA"< V>I7SPACE JSPAETER 'VALIDATE * <028> 

9522 DATA"<E><7SPACE>AUSSTIEG AUS EDITOR <024> 

9523 DATA"< X>T7SPACE>BEENDEN DES PROGRAMMS <113> 

9524 DATA,,* <244> 

10000 OPEN 3,8,0,"*:** <248> 

10001 GET#3,A*:PRINT ASC < A*+CHR*(0 > > A*:GOT 

0 10001 <074> 

6 64'er 


Listing »Disk-Directory-Editor« (Schluß) 


Programm- 
schutz durch ;B 
Autostart und 
Paßwort 

Ein Programm, das nach dem Laden 
sofort gestartet wird und nicht mehr 
unterbrochen werden kann, ist eine 
Art Programmschutz. Richtig raffiniert 
wird es aber, wenn noch zusätzlich ein 
Paßwort nötig ist. »Autostart C 64 
Plus« macht es Ihnen einfach, Ihre Pro¬ 
gramme so zu bearbeiten. 

Das Programm »Autostart C 64 Plus« ist eine besonders 
komfortable und nützliche Art der Programmsicherung für den 
C 64 und ein Diskettenlaufwerk. Das Autostartprogramm lädt 
das zu bearbeitende Programm, das bis zu 230 Blöcke lang 
sein darf, in den Speicher des C 64, verschlüsselt es, fügt 
noch einige Modifizierungen ein und speichert es wieder ab. 
Der so eingefügte Programmschutz kann nur noch mit großem 
Aufwand rückgängig gemacht werden. Sicherlich kann jeder 
Programmschutz auch wieder entfernt werden, aber um dies 
so schwer wie möglich zu machen, soll hier nichts weiteres 
darüber verraten werden. Die Dauer des gesamten Bearbei¬ 
tungsvorgangs richtet sich ganz nach der Länge des zu bear¬ 
beitenden Programms. Die Eingabe aller Parameter ist dabei 
komfortabel durch Menüpunkte und Abfragen realisiert wor¬ 


den. Ein so gespeichertes Programm startet sich nach dem La¬ 
den automatisch, wenn Sie das entsprechende Paßwort wis¬ 
sen. 

Geben Sie zunächst das Programm Autostart C 64 Plus (sie¬ 
he Listing) mit dem Checksummer ein. Nach dem Starten des 
Programms ist es notwendig, einige Parameter einzugeben, 
denn es wird zwischen Basic- und Maschinenprogrammen un¬ 
terschieden. Bei Maschinenprogrammen benötigt Autostart C 
64 Plus zusätzlich die Startadresse. Mit zwei weiteren Menü¬ 
punkten läßt sich jedes Programm gegen eine Unterbrechung 
durch RUN/STOP-RESTORE absichern. Zuletzt wird das jewei¬ 
lige Paßwort eingegeben. Ein Paßwort ist eine Art Geheimzahl, 
das aber auch Buchstaben enthalten darf. Es darf bis zu 10 Zei¬ 
chen lang sein. Falls kein Paßwort eingegeben wird, startet das 
bearbeitete Programm später ohne jegliche Abfrage. Bevor 
Autostart C 64 Plus nun mit der Modifizierung des Programms 
beginnt, wird nochmals nach der Richtigkeit aller Angaben ge¬ 
fragt. 

Während dem Laden ist jedes so modifizierte Programm ge¬ 
gen einen Reset geschützt. Dieser Schutz wird jedoch nach 
dem Laden abgeschaltet, da sonst ein Speicherplatzverlust 
von 8 KByte eintreten würde. Das bearbeitete Programm wird 
wie ein Maschinenprogramm mit LOAD »Name«,8,1 eingela¬ 
den. Danach erscheinen auf dem Bildschirm die normalen 
Betriebssystem-Meldungen—soweit nichts Ungewöhnliches. 
Nun muß man aber, und das ist der Trick, unaufgefordert das 
zuvor festgelegte Paßwort über die Tastatur eingeben (ohne 
anschließendes RETURN). Falls das Paßwort richtig war, blinkt 
der Bildschirm kurz auf und der Ladevorgang wird normal fort¬ 
gesetzt. War das Paßwort aber falsch, so läuft das Disketten¬ 
laufwerk ohne jede Fehlermeldung bis ans Ende ihrer Tage wei¬ 
ter. Falls Sie sich vertippt haben, ist es am einfachsten, eine Ta¬ 
ste zu drücken, die nicht im Paßwort vorhanden ist, und dann 
nochmals das Paßwort einzugeben. Dadurch, daß keinerlei 
Fehler- oder Rückmeldungen ausgegeben werden, ist es für 
jemanden, der das Paßwort nicht kennt, fast unmöglich, Ihre 
Programme zu verwenden. 

Ein Tip noch zum Schluß: Schreiben Sie sich Ihre Paßwörter 
auf, oder wenden Sie immer das gleiche Schema an (etwa je¬ 
der zweite Buchstabe des Programmnamens), denn sonst ist 
auch für Sie selbst der Zugang versperrt. (Jan Kusch/aw) 


* 
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1 REM ********************************* 

2 REM ********************************* 

3 REM ** AUTQSTART C64 PLUS ** 

4 REM **-•• 

5 REM ** WRITTEN 1984 BY JAN KUSCH ** 

7 REM ********************************* 

8 REM ********************************* 

9 REM 

100 PDKE 643 1 PEEK < 45 > : PÜKE 55,PEEK(45>:POK 
E 644,PEEK(46)+3:POKE 56,PEEK(46)+3:CL 
R <120> 


< 132> 

< 133> 
< 120 > 
<047> 
<123> 
<138> 

< 139> 
<071 > 


101 

PRINT"CCTRL—I,CTRL-N,CTRL-H,CLR 

RVSDN, 


146 

DATA 

133, 

251, 

175, 132, 

2 , 

105, 

0, 13 



DOWN,2SPACE> *C2SPACEJ * <2SPACE >* <2SPACE 



3, 252, 162, 1 





<056> 


>AUTOSTART £64 £LUSC2SPACE}*C2SPACE}*C 


147 

DATA 

32, 

198, 

255, 169, 

253, 

37, 

144, 



2SPACE > * < 2SP ACE > 11 


< 115> 


133, 

144, 

32, 

225 




< 170> 

102 

Ci="C38SPACE >":Oi=CHRi(0) 


<025> 

14B 

DATA 

255, 

32, 

207, 255, 

160, 

48, 

120 , 


103 

PRINT"AATACHECKINGC12LEFT1";: 




132, 

1 , 160, 0 





< 107> 


GOSUB 142 


< 143> 

149 

DATA 

145, 

251, 

160, 55, 

132, 

1, 88 , 36 


104 

RESTORE:OPEN 15,8,15:FOR X=0 TO 

112:RE 



, 144, 112, 57 





< 179> 


AD A: F’OKE B2B+X,A:NEXT 


< 122 > 

150 

DATA 

230, 

251 , 

208, 222 , 

230 

, 252. 208 


105 

Ai="£NTER ADURCEFILENAME":GOSUB 

133:SF 



, 218, 162, 1 , 

32 




<084> 


i=Ti 


< 165> 

151 

DATA 

201 , 

255, 

160, 48, 

120 , 

132, 

1 . 1 


106 

Ai="ENTER JARGETFILENAME ": GOSUB 

133:TF 



60, 0, 177, 251 




<057> 


i=Ti 


<18B> 

152 

DATA 

160, 

55, 

132, 1, 88 

, 73 

, 255, 32, 


107 

PRINT"CDOWN > ":Ai="AASICPROGRAMM 

":BOSU 



210 

255 

32 





<055> 


B 138:BAi=Ti 


<035> 

ro 

in 

»-< 

DATA 

225, 

255, 

165, 251, 

208 

, 2 , 

198, 


108 

IF BAi="J"THEN PRINT"CDOWN}"Ci:PRINT C 



252, 

198, 

251, 

165 




< 000 > 


i:SA=42926:NFi="N":GOTO 111 


<254> 

154 

DATA 

251 , 

205, 

131, 2, 20B, 

219, 

165, 


109 

PRINT:Ai="£TARTADRESSE ": GOSUB 140:SA= 



252, 

205, 

132, 

2 




<250> 


T:IF SA>65535 THEN PRINT"C3UP) ": GOTO 1 


155 

DATA 

20 B, 

212 , 

76, 204, 

255 



<066> 


09 


<1BB> 

156 

REM 







<218> 

110 

Ai="AEWFLAG":GOSUB 138:NFi=Ti 


< 116> 

157 

REM 







<219> 

111 

PRINT : Ai= " AESTOREPROTECT ": GOSUB 

138:RS 


158 

DATA 

168, 

2, 238, 32, 208, 76, 168, 2, 



i=Ti 


<004> 


174, 

170 

3 





<034> 

112 

Ai= " ETOPPROTECT C3SPACE }": GOSUB 138:SSi 


159 

DATA 

134, 

174, 

172, 171, 

3, 

132, 

175, 



=T * <204> 

113 PRINT"EQDEWORD<12SPACEJ“j sCWi="":INPUT 

CW* <092> 

114 IF LEN(CWi>>10 THEN PRINT"<2UP>":GOTO 

113 <107> 

115 PRINT"CDOWN}":Ai="ENTERY CORRECT";BOSU 
B 138:IF Ti="N"THEN PRINT”{HOME,2DDWN> 

" : GOTO 105 G'V< 0 B 0 >niJ.I 

116 PRINT:FOR X=1 TD 40:PRINT"—";:NEXT:INP 

UT"iNSERT SflURCE-aiSK";Ti <014> 

117 PRINT" CUP}"Ci: PRINT" CUP}£DADING: " ; : OPE 

N l,B,2,SFi+",P,R":GET#l,Lli,L2i <110> 

118 GOSUB 135:SYS 831:S0SUB 135:CL0SE 1:IN 

PUT"IRVüFFJiNSERT TARGET-DISK";Ti <044> 

119 PRINT" CUPV'Ci: PRINT" <UP}.§AVING :”;:OPE 

N 1,8,2,"®:"+TFi+",P,W":GOSUB 135 <093> 

120 FOR X=0 TO 257:READ A:PRINTttl,CHRi(A); 

:NEXT <192> 

121 S1=INT<SA/256):S2=SA—Sl*256:PRINT#1,CH 
Ri<S2);CHRi<S1); 

122 A0=ASC< L1i+Oi> +ASC(L2i+0i)*256:A1=PEEK 
(251)+PEEK(252)*256 

123 A2=1+PEEK(643)+PEEK(644)*256:A3=<A1-A2 

> +A0:P1=INT(A3/256):P2=A3—Pl*256 <190> 

124 PRINT#1,CHRi<P2>;CHRi(PI) ; <168> 

125 A=237:IF RSi="J"THEN A=225 <134> 

126 PRINT#1,CHRi<A);:A=49:IF SS*="J"THEN A 

=52 <234> 

127 F'RINT#1 , CHR* (A) ; : A=0: IF NFi="J“THEN A= 

1 <018> 

128 PRINT#1,CHRi(A);:IF CWi=""THEN PRINT#1 

,CHRi(0)"1234567890";:GOTO 130 <017> 

129 PRINTttl,CWiCHRi(0);:IF LEN(CW#)<10 THE 

N PRINT#1,LEFTi(C$,10—LEN(CWi)>; <188> 

130 SYS 828:GOSUB 135:CL0SE 1cPRINT:Ai="CD 

OWN>£ESTART PROGRAMM":GOSUB 13B:CL0SE 
15 <051> 

131 IF Ti="J"THEN RUN <051> 

132 SYS 64738 <192> 

133 Ti=.PRINT Ai;:INPUT Ti:IF Ti=""OR LE 

N(Ti)>16 THEN PRINT"C2UP}GOTO 133 <207> 

134 RETURN <192> 

135 INPUT#15,A,Bi,C,D:PRINT"<RVSON>"A;Bi;C 

<252> 

136 IF A<2 THEN RETURN <113> 

137 FOR X—1 TO 15:CLOSE 1:NEXT:PRINT:PRINT 

"?2ISK—ERROR";:FOR X=1 TO 5000:NEXT:RU 
N <245> 

138 Ti="":PRINT Ai" (J/N)";:INPUT Ti:IF Ti 
<>"J"AND Ti<>"N"THEN PRINT"C2UP}":GOTO 

138 <184> 


139 RETURN <197> 

140 Ti="":PRINT Ai;:INPUT Ti:T=VAL(Ti):IF 
Ti=”"QR T=0 THEN PRINT"C2UP}":GOTO 140 <242> 

141 RETURN <199> 

142 P1 = 15862:S=0:FOR X=0 TO 112:READ A:S=S 

+A: NEXT: IF SOP1 THEN 144 <133> 

143 P2=32966:P=1:S=0:FOR X=0 TO 257:READ A 

:S=S+A:NEXT:IF S=P2 THEN RETURN <052> 

144 PRINT"7DATAERR0R"P+1,"PRUEFSUMME:"S <188> 

145 DATA 76, 121, 3, 173, 131, 2, 24, 105, 

1 <031> 


134, 45, 132, 46 <218> 

160 DATA 32, 1*2, 3, 144, 251, 32, 239, 23 

7, 32, 66 , 246 <13B> 

161 DATA 169, 0, 141, 6 , 128, 32, 21, 253, 

32, 83, 228 <i 2 6 > 

162 DATA 173, 173, 3, 141, 20, 3, 173, 172 

, 3, 141, 40 <017> 

ntöSwiVTA 3, 173, 174 , 3 , 240 , 3 , 32 , 68 , 1 

66 , 169, 0 <026> 

164 DATA 76, 152, 3, 3, 255, 165, 174, 201 

, 186, 240, 65 <010> 

165 DATA 96, 83, 80, 83, 32, 83, 79, 70, 8 

4, 87, 65 <073> 

166 DATA 82, 69, 139, 227, 131, 164, 124, 

165, 26, 167, 228 <011> 

167 DATA 167, 134, 174, 1, 2, 3, 50, 76, 7 

2, 178, 0 

168 DATA 49, 234, 102, 254, 168, 2, 74, 24 

3, 145, 242, 14 <073> 


<241 > 

169 

DATA 

242 

80, 

242, 51, 243, 

87, 



02, 241, 

237, 

2 


<092> 

170 

DATA 

62, 

241, 

47, 243, 102, 

254 


< 002 > 

243, 102, 254, 165, 

244, 237, 245, 162 <190> 

171 DATA 10, 189, 143, 3, 157, 0, 128, 202 

, 208, 247, 169 <061> 

172 DATA 0, 133, 153, 170, 134, 198, 134, 

251, 189, 175, 3 <157> 

173 DATA 240, 17, 32, 62, 241, 240, 251, 1 

66 , 251, 221, 175 <020> 

174 DATA 3, 208, 230, 232, 230, 251, 208, 

234, 170, 160, 245 <153> 

175 DATA 238, 32, 208, 238, 33, 208, 232, 

208, 247, 200, 208 <196> 

176 DATA 244, 76, 174, 2, 169, 253, 37, 14 

4, 133, 144, 32 <U9> 

177 DATA 19, 238, 73, 255, 160, 0, 145, 17 

4, 165, 174, 208 <212> 

178 DATA 2, 198, 175, 198, 174, 36, 144, 8 

0, 2, 56, 36 <029> 

179 DATA 24, 96, 168, 2, 168, 2, 195, 194, 


205, 

, 56, 48 


<230> 

DATA 

141, 0, 8 , 

32, 113, 168, 32, 51, 


165, 

32, 167 


<B69> 

DATA 

3, 76, 84, 

168, 76 

<198> 


© 64'er 

Listing »Autostartgenerator C 64 Plus«. Verwenden Sie 
zur Eingabe bitte den Checksummer. Beachten Sie die 
Eingabehinweise auf Seite 6. 
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Nachdem eine Diskette eingelegt und eine Taste gedrückt 
wurde, lädt das Programm die Directory in den Speicher. Nun 
ist die zweite Directory an der Reihe. Sobald diese geladen ist, 
werden die Directories nebeneinander ausgedruckt. Hierbei 
wird nach und vor ihnen eine Leerzeile eingefügt, damit in einer 
Serie von Directories nicht alle aneinanderkleben. Nach dem 
Ausdrucken können weitere Disketteninhalte bearbeitet wer¬ 
den. 

Vorsicht! Es werden keinerlei Druckereinstellungen vorge¬ 
nommen. Also müssen alle Einstellungen vor dem Start des 
Programms vorgenommen werden (Zeilenabstand etc.). Die 
voreingestellte Sekundäradresse ist 0. Sie kann aber mit PO- 
KE 2144, neue Sekundäradresse auf einen beliebigen Wert 
gesetzt werden. Die Geräteadresse kann mit POKE 2142,5 
zum Beispiel von 4 auf 5 gesetzt werden. (Übrigens: da das 
Programm am Basic-Anfang liegt und weil ihm ein SYS-Befehl 
vorgelagert ist, kann es mit LOAD »name«,8 (,1 bei Kassette) 
geladen und mit RUN gestartet werden.) 

(Claus Brunzema/rg) 


f» i ur-«K mdi -a "'■niror;-' i ~>uinuaaniMinMDUiiNa i rwn>i ~un 

mEinT.n 


KJ IW 

5 

"CHECKSUM.SCHNELL" 

PRG 

KJ HM. 

7 

"MSE VI.0" 

PRG 

7 

"CHECKSUMMER VC20" 

PRG 

29 

"MSE LADER" 

PRG 

29 

"MSE LADER" 

PRG 

0 

•I . ........ _ . II 

DEL 

7 

"MSE VI.0" 

PRG 

5 

"CHECKSUM.SCHNELL” 

PRG 

0 

• 1 _ II 

DEL 

7 

"CHECKSUMMER VC20" 

PRG 

JL 

"MPS802.LISTING2“ 

PRG 

0 

II . ll 

DEL 

6 

"MPS802.LISTINB1" 

PRG 

7 

"HI-EDDI/MPS 801" 

PRG 

0 

"-" 

DEL 

2 

"HI—PRINT /B01" 

PRG 

5 

"FORMAT-SYSTEM" 

PRG 

11 

"MPS802/DATA" 

PRG 

0 

II II 

DEL 

3 

"HI—PRINT /802" 

PRG 

36 

"VIC" 

PRG 

0 

II II 

DEL 

0 

11 ---—— - 11 

DEL 

1 

"UF'D. 49309" 

PRG 

101 

"6510 I" 

PRG 

25 

"PROST" 

PRG 

0 

II . II 

DEL 

0 





UtL 

57 

"STERNENHIMMEL" 

PRG 

2 

"E-ROUTINE 64" 

PRG 

0 

II .11 

DEL 

0 





DEL 

1 

"ASS.—9/PROG.1" 

PRG 

4 

"GCR-HEX” 

PRG 

5 

"ASS.—9/PROG.2" 

PRG 

5 

"HEX-GCR" 

PRG 

1 

"ASS.-9/PROB. 3" 

PRG 

0 


DEL 

1 

"ASS.-9/PROG.4" 

PRG 

41 

"SAMURAI" 

FRG 

1 

"VERSCHIEBEN 9" 

PRG 

0 

■ 1 II 

DEL 

0 

II II 

DEL 

13 

"SCROLL—MACHINE" 

PRG 

19 

"DIRECTORY-SORTER" 

PRG 

43 

"SCROLL-EDITOR" 

PRG 

0 

"-" 

DEL 

10 

"DEMO I" 

PRG 

3 

"TRICK.OBJ" 

PRG 

45 

"PSEUDO I" 

PRG 

28 

"3D-M0VIE—MAKER" 

PRG 

9 

"ZEICHENSATZ" 

PRG 

68 

"XDEMO—1.GRA" 

SED 

5 

"SPRITES" 

PRG 

14 

"DEMO-2.GRA" 

SEQ 

4 

"DEMO II" 

PRG 

67 

"DEMO-3.GRA" 

SEQ 

33 

"PSEUDO II" 

PRG 

91 

"DEMO-4.GRA" 

SEQ 

13 

"SPIEL" 

PRG 

18 

"DEMO-5.GRA" 

SEQ 

0 

I* II 

DEL 

1 

"-VC 20-" 

PRG 

7 

"F-PLOTTER C16" 

PRG 

5 

"MINIGRAFIK" 

PRG 

' 20 

"CROSSREFERENZ" 

PRG 

2 

"MINIGRAFIK DEMO" 

PRG 

0 

ll ll 

DEL 

9 

"LONGSCREEN" 

PRG 

3 

"HEAPSORT" 

PRG 

1 

"- C 16-" 

PRG 

310 

BLOCKS FREE. 


8 

"HELP & TRACE" 

PRG 




4 

"MODULATOR" 

PRG 




13 

"MODULATOR.TEST" 

PRG 




43 

BLOCKS FREE. 


Beispielausdruck 



Programm 

i directory 

0801 09bd 

0899 

* 

ad 

41 

03 

d0 

06 

20 

68 

09 

d7 

0949 

: 

i0 

0a 

ee 

42 

03 

20 

d2 

ff 

bl 












0Ba9 


**c 

03 

20 

26 

09 

8d 

41 

ae 

03 

«5+ 

8c 

u / 

6f 

0959 


ii 

a0 

00 

bl 

♦ d 

a4 

fd 

a6 

29 

0801 

: 

lc 

s 

CD 

0a 

00 

9e 

32 

30 

38 

51 

08b 1 

: 

3e 

03 

8c 

31 

03 

20 

68 

09 

el 

0961 

: 

fe 

60 

a9 

20 

4c 

d2 

ff 

a9 

ac 

0809 


30 

3a 

81 

20 

53 

41 

46 

54 

b0 

08b9 


ad 

40 

03 

d0 

b3 

ad 

41 

03 

15 

0969 

: 

0d 

4c 

d2 

ff 

a5 

c6 

f 0 

lc 

9f 

Ban 

: 

49 

45 

2d 

53 

4 f 

46 

54 

57 

da 

08c 1 


f0 

13 

a2 

29 

20 

63 

09 

ca 

dl 

09/1 

: 

ad 

77 

02 

a2 

00 

86 

c6 

60 

bl 

0019 

: 

41 

52 

45 

00 

00 

00 

24 

a9 

b9 

08c 9 


d0 

f a 

4c 

99 

08 

48 

20 

f 4 

Ba 

0979 

: 

42 

49 

54 

54 

45 

20 

44 

49 

18 

0821 

s 

00 

a9 

10 

a2 

00 

8d 

3d 

03 

b6 

08dl 


08 

68 

4c 

04 

el 

20 

68 

09 

74 

0981 

: 

45 

20 

4e 

41 

45 

43 

48 

53 

c8 

0829 


8e 

3c 

03 

20 

f d 

08 

Be 

3e 

71 

08d9 


20 

f 4 

00 

a9 

a0 

a0 

09 

20 

le 

0989 

: 

54 

45 

20 

44 

49 

53 

4b 

45 

17 

0831 

: 

03 

8c 

Zf 

03 

98 

20 

fd 

08 

3d 

08e 1 


le 

ab 

20 

6d 

09 

c9 

4a 

f0 

75 

0991 

: 

54 

54 

45 

20 

45 

49 

4e 

4c 

d5 

0839 

: 

a9 
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Zu zweit 
geht’s besser 

Dieses Programm für C 64, Floppy und 
Drucker beseitigt ein lästiges und pa¬ 
pieraufwendiges Problem: Drucker, 
die keinen Randsteller haben, können 
zwei Directories nebeneinander aus- 
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■Sammlung ! 


Schaffen Sie sich ein interessantes 

Nachschlagewerk und gleichzeitig 
ein wertvolles Archiv! 


Kennen Sie alle Ausgaben von 64'er? Suchen Sie einen ganz bestimmten Testbericht? Oder 
haben Sie einen Teil eines interessanten Kurses versäumt? Suchen Sie nach einer speziellen 
Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf 
diesen Seiten eine Zusammenstellung aller wesentlichen Artikel von Ausgabe 4/84 bis 
Ausgabe 3/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe 
in Ihrer Sammlung noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer 
dieser Ausgabe und das Erscheinungsjahr (z.B. 2/85) auf dem Bestellabschnitt der hier 
eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte einfach heraustrennen und 
Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach 
Zahlungseingang umgehend zur Auslieferung gebracht. 
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Erst cm 1EC-Bus öffnet Tür und Tor (Marktubcreicht 
und Tost) 

24 

3/85 


Gute Connections (RS232-. Centronics- 
MarktUboraicht) 

21 

3/85 


Kopplung zwischen 2wot VC 20 


6/84 



























Aus¬ 

gabe 


Kurse 


Assembler 

Assembler ist keine Alchimie (TsU l) 

138 

9/84 


Assembler ist keine Alchimie (Tbil 2) 

150 

10/84 


Assembler ist kome Alchimio (Teil 3) 

121 

11/84 


Assembler ist koino Alchimie (Teil 4) 

134 

12/84 


Assembler ist keine Alchimie (Teil 3) 

142 

I/8S 


Assembler ist keine Alchimie (Teil 0) 

134 

2/85 


Assembler ist keino Alchimie (Teil 7) 

124 

3/83 

Code* 

Allo Taston-, Zeichen- und Stouercodas (Tbil 1) 

114 

4/84 


Allo Taston-. Zeichen- und Gtouercodos (Toll 2) 

104 

5/84 


Allo Taston-, Zeichen- und Stouorcodns (Toll 3) 

146 

7/84 


Allo Taston-, Zoichon- und Stouercodas (Teil 4) 

131 

8/84 

Co mol 

Comal — Eine Einführung (Teil 1) 

44 

11/84 


Comal - Eine Einführung (TBil 2) 

14S 

12/84 


Comai — Eine Einführung (Teil 3) 

130 

2/83 

Eff Prag 

Finden mit System — Eine neuartige Suchmethode 
(Teil i) 

148 

3/83 


Mullabfuhr im Computer Die Garbaggo Colloctton 
(Toll 1) 

122 

1/83 


Stnngptogrammlcrung in Maschinensprache (Tbil 3) 

147 

2/83 

Floppy 

In die Cohoimniuo dor Floppy eir.goraucn: (Teil 1) 

153 

10/84 


ln dio Cohoimmwio dor Floppy oingetauch: (Teil 2) 

117 

11/84 


In die Cohoimnitse der Floppy omguUucht (Toll 3) 

139 

12/84 


In dio Gohoimnlsso dor Floppy elngotaucht (Teil 4) 

143 

1/83 


ln die Goholmntsao der Floppy elngotaucht (Toll 3) 

130 

3/83 

Cralik 

Hlies 3 (Teil 1) 

123 

2/B5 


Hlros 3 (Teil 3) 

136 

3/85 


Rome durch die Wundnrwolt dor Grafik (Toll 1) 

119 

4/84 


Reise durch dio Wundnrwolt dor Grafik (Toll 2) 

109 

3/84 


Roiso durch dio Wundorwolt dor Grafik (Toll 3) 

132 

6/B4 


Rolso durch dio Wundorwolt dor Grafik (Toll 4) 

162 

7/B4 


Reis« durch diu Wundorwolt dor Grafik (Teil 3) 

142 

8/84 


Retao durch dio Wundorwelt dor Grafik (Teil 6) 

144 

9/04 


Heise durch dio Wunderwclt der Grafik (Teil 7) 

146 

10/34 

Grundlagen 

Geschwindigkeit durch Maschlnoncode — so 
arbolton Compiler 

39 

2/B5 

Munk 

Dom Klang auf dor Spur (Teil 1) 

131 

12/84 


Dom Klang auf dor Spur (Tbil 2) 

136 

1/05 


Dom Klang auf dor Spur (Tbil 3) 

152 

2/B5 

Precompilor 

Strubs — ein Precompilor für Baslc-Progromme 
(Tbil 1) 

110 

4/84 


Strubs — ein Precompilor für Baste-Programmo 
(Ted 2) 

116 

5/84 


Strubs — ein Precompilor für Baste-Programmo 
(Teil 3) 

128 

6/84 


Strubs — oin Procompllor für Basic-Programmo 
(ToU 4) 

164 

7/84 

Spoichcr 

Memory Map mit Wandon-orachlagen (Tbil 1) 

133 

11/84 


Memory Map mit Wandorvorschlagor. (Tbil 2) 

132 

12/84 


Memory Map mit WandeivorschUaen (Tbil 3) 

127 

1/85 


Memory Map mit Wandervorschlägen (Teil 4) 

150 

2/85 


Memory Map mit Wanöervorschlägen (Tbil 5) 

144 

3/83 

VC 20 

Dor gläserne VC 20 (Teil 11 

153 

9/84 


Der gläserne VC 20 (Teil 2) 

157 

10/84 


Der gläserne VC 20 (Tbil 3) 

126 

11/84 


Dar gläserne VC 20(1*11 4) 

130 

1/85 


Der gläaento VC 20 (Teil 5) 

141 

2/85 


Der gläserne VC 20 <1*116) 

155 

3/83 


Spiele-Test 



Abenteuor 

Abenteuer selbst gemacht — Ad venture Creator 

43 

11/84 


Dio Lösung von Hobblt 

49 

2/86 


Exodus - Ultima III 

42 

11/84 


Gordon Saga 

48 

2/65 


Gnids in Space 

137 

8/84 


Home of Ushor 

37 

10/64 


Lösung von Dallas Qucst 

90 

1/85 


Losung von Enchanter 

44 

3/65 


Lösung von The Blade of Blackpool 

34 

10/84 


The Ouest 

47 

I/BS 

Aciion 

Dino Eggs 

57 

6/64 


Flip and Flop 

48 

4/H4 


Impoaoible Mission 

46 

2/BS 


Loderunno: 

68 

7/B4 


QX 9. Catastrophes 

46 

12/64 


Raingamo 

62 

5/84 


Save Now York und Survivor 

46 

4/84 


Tom * Zaga 

48 

1/83 


Wizard 

49 

12/84 


Zaxxon 

66 

7/84 

Anrade 

AE — ein Action-Spiel 

56 

6/H4 


Fixe Galaxy (VC 20) 

37 

10/84 


Schnellboot - Rettung aus der grünen Holle 

109 

9/84 

Flipper 

David’* Midrught Magic 

60 

5/84 


Night Mission 

61 

5/84 


Slamball - der ellenlange Hipper 

105 

9/84 

Grundlagen 

Fantasy-Spiele 

106 

9/34 

Simulation 

Flight II — fast wie richtiges Fliogon 

(19 

7/94 

Sport 

One on Ono 

136 

B/84 


Spiel des Jahre* International Soccer 

46 

12/84 


Summer Games - Los Angeles läßt grüßen 

130 

0/94 

Taktik 

Taktik- und Strategtonpiele 

46 

3/8S 


So machen’s andere 



Amatourfunk 

runkonde Computer 

132 

4/84 

Datenbank 

Klom abor oho - der VC 20 

136 

4/84 

Fmanson 

Geregelter Zahlungsverkehr 

164 

9/34 

Fotografie 

Dor VC 20 als Fotolchrlmg 

138 

6/54 


Mode-Fotos mit Bits und Bytes 

144 

11/84 

Landwirt¬ 

schaft 

Dor Computor im Kuhaull 

156 

B/84 

LichKolofon 

Mit vier Baud Uber den Balkon 

166 

10/04 

Moduln 

Computor bringen don Kreislauf in Schwung 

170 

7/84 

Orientierung 

Welche Hausnummer hot dor Kölner Dom’ 

129 

3/04 

Plattproblem 

Wohin mit dom Hoimcomputor? 

136 

3/84 


Software-Test 



Assembler 

Assembler im 1*it (AS-64. MAE. TEXAS. ASSl/M) 

34 

1/85 


Assembler im Tos? Mastorcode, Profimat. Proflsoft. 
Maschine 64 

30 

2/85 


Assembler’ Assembler! 

32 

1/85 

Basic- 

Exbasic Lovol II - elno tolle Sacho 

42 

6/84 

Erweiterung 

CBaslc 

2fl 

1/85 


Simon? Basic (Toii 1) 

40 

4/64 


Simons Basic (Toll 2) 

42 

5/84 

CP/M 

Erste Erfahrungen mit dom CP/M-Modul 

1B 

4/84 

Compiler 

Basic-Programmo auf Trab gobracht Austro-Speod. 
BASS, Exbasic, Potspcod 

34 

2/85 

DFÜ 

Tbletorm — Dio Verbindung rum Modem 

20 

7/84 


Terminal 64 - Schwor auf Draht 

24 

2/8S 

Datenbank 

Daten gut tm Griff (Datamat. Multidata. Daten- 
managcr) 

52 

5/84 


1SM €4 — ohne Fleiß kein P;cis 

117 

8/84 


I5M £4 — professionelle Datenverwaltung 

59 

5/84 


Moindat 64 

56 

5/84 


Superbase 64 

46 

5/84 

Finanzen 

Lohnsteucrjahrcsausgli'ich ’.oicht gonacht 

46 

10/84 

Floppy 

Ex-DOS und Disk Doctor 

48 

10/84 

Grafik 

Elektronische Aquarelle Parat Magic 

114 

B/84 


Grafik hoch zwei — das Extended Graphic System 

37 

11/84 


Crafiktabletts KcalaPad und SuperSketch 

34 

11/84 


Craphics-Basic (HES) 

38 

12/84 


Stichwort 

Titel 

Seite 

Aus- 




gäbe 


Wie Super ist dio Supergrafik’ (Supergrafik 64) 

30 

11/84 





Programme 

Nachhilfe auf Knopfdruck (Mathematik) 

26 

2/85 


SoflLearning — die weiche Welle des Lernens 

40 

1/85 


Vokabeltraining mit dem Computer 

39 

3/83 


Was bnngt die Lern-Softwaro? 

42 

12/84 

Mathematik 

Nachhilfe auf Knopfdruck (Mathomatik) 

26 

2/83 

Musik 

Guto Noton für guto Noten; Extendond Synthesizer 
System 

24 

9/84 


Melodienschreiber und Musik-Synthesizer 

43 

12/84 


Music-Composer — Komponieren leicht gemacht 

42 

9/84 


Muticalc - oder was wirklich im C 64 stockt 

29 

9/84 


Synthimat - Das Piano für den Aktonkoffer 

38 

D/84 

Programm- 

gonoratoi 

Basic Bär — Ein Programmgonorator 

63 

7/84 

Sprachor, 

Dto Turbo-Pnscal-Story 

40 

12/84 


Fonh ohne Floppy (C 64 und VC 20) 

30 

10/84 


HES 64 Fonh — komfortabler als Basic 

66 

7/04 


Oxford-Pascal für don Commodore 

39 

12/84 


Pascal — leistungsfähiger und ologantoi als Basic 

44 

8/84 


(Tbü 2) 

Sechs Pascal-Voraionon im Vergleich 

30 

B/84 

Tabollonkal- 

Multiplan: Viol au ichado, um nur damit xu 

32 

11/84 

kulauon 

kalkulieren 

Calc Rosult — Dreidimensionale Kalkulation 

21 

9/84 


VtzaStar - Ein Stom wird geboren 

38 

11/84 

Toxtvorarbci- 

Bitttext - schnell wio dor Bllta? 

34 

0/84 

tung 

Homowoid — Tbxtvorarbnitung xu Hause 

30 

3/85 


SM-Toit 64 - die piofesslonollo Tbxlvorarbcitung 

48 

0/84 


Toxtomat — BUroanwondung zum kloinon Preis 

34 

9/B4 


TötlToat - Flexibilität ist Trumpf 

38 

J/B3 


Vixawrito 64 - Dor C 64 wird zum PC 

43 

10/84 


Wordpro 3 plus — Von don Großen auf den Kleinen 

52 

0/84 

Vokabeln 

Vokaboltrainlng mit dem Computor 

39 

3/83 


Software 



Adrosson- 

vorgloich 

Adroseenvorglolch VC 20-C 64 

52 

7/84 

Basic 

Debugging - Fehlersuche in Basic-Programmon 

46 

7/04 


Fehlersuche in Bamc-Programmen (Teil 2) 

67 

9/84 

CP/M 

CP/M-Software vom Apple auf don C 64 

36 

7/04 

Compiler 

Geschwindigkeit durch Maschinoncodo — so 
arbeiten Compiler 

39 

2/85 

DFÜ 

Begriffe aus dor DFU 

27 

7/B4 


Datox-P und ausländische Netzwerke 

59 

10/84 


Electronic Mall — die neue Form der Post- 
bofördeiung 

22 

7/04 


Mailboxprogramm für den C 64 

114 

9/04 


Terminal Programm für den C 64 

24 

7/84 


Wie bodlont man emo Mailbox? 

2B 

7/84 

EPROM 

Dutenbrennoioi Wio programmiere ich EPROMs? 

162 

9/84 

Floppy 

22 Read Error - Theorie und Praxis 

41 

3/85 

Grafik 

Neues vom Video-Chip beim VC 20 

56 

8/84 

Grundlagen 

Daten im (relativen) Direktzugriff 

56 

7/84 


Datenkreislauf: Die sequentielle Datenspeicherung 

63 

8/84 


Die mdex-sequer.tielle Datei 

54 

9/84 


FJußdiagxamme 

20 

9/84 


So macht man Basic-Programmo schneller (Teil 2) 

44 

12/84 


Strukturiertes Programmieren (T*L I) 

33 

5/84 


Strukturiertes Programmieren (Teil 2) 

37 

6/84 


Tips für den Umgang mit Sinnbildern (Fluß- 
dia gram men) 

14 

9/84 

Musik 


35 

58 

4/84 

9/84 


Markübersicht der Musikprogramme 

27 

9/B4 

Sprachen 

Basic ist out — Es lebe Fonh 

43 

1/85 


Förth — die etwas andere Programmiersprache 

33 

7/84 


Pascal — leistungsfähiger und eleganter als Basse 

40 

7/84 


Pascal — leistungsfähiger und eleganter als Basic 

44 

8/84 


Was ist Comal? 

41 

B/84 

tung 

Von der Schreibmaschine zum Tbxtsystem 
(Auswahlhilfo) 

34 

3/85 

Tips 

DOS 5.1 (Tel! 1) 

40 

5/e4 


DOS 81 (Teil 3) 

16 

9/84 


Wettbewerbe 



EUuollor 

Die Top 10 (Einzeller) 

158 

11/64 


ElnBüUer-Woubewcrb: Die nächsten 14 

157 

1/B5 

Kreuz¬ 

worträtsel 

Kreurwnrtnitsol selber machen 

151 

12/64 

Sprites 

Da* schönste Sprite - Auflösung 

174 

7/64 

Unter- 

Formatierte Eingabe 

156 

1/65 

Programm 

Exsort — Sortieren mit Komfort 

154 

11/84 


Siogor mit Maske - Maslrnnoretollungsprogramm 

172 

10/84 


Allo Beitroao sind m der Regel für den C 64, nofem mehl enden 
gekennwnennot (VC 30) 

Folgende Abkürzungen wutden verwendet LDM - Lmtingn das Monom. 
AdM - Anwendung dt» Monem SB - Simons Basic 


Audi die bisher erschienen 
Sonderhefte können Sie 
jetzt direkt bestellen: 



TIPS&TRICKS 

(1. Programm-Sonderheft) 

Eine wahre Fundgrube an 
Ideen und Programmen 
für Computer-Profis und 
alle, die es werden 
wollen. 

BESTELLCODE: Tips&Tips 



ABENTEUERSPIELE 

(2. Programm-Sonderheft) 
Auf mehr als 100 Seiten 
viele interessante Adven- 
tures, die Sie lange Zeit 
fesseln werden. Mit ab¬ 
geschlossenem Kurs zur 
Programmierung eigener 
Abenteuerspiele und zahl¬ 
reichen Lösungen profes¬ 
sioneller Adventures. 
BESTELLCODE: 
Abenteuerspiele 



SPIELE 

(3. Programm-Sonderheft) 
Heiße Listings für alle 
Spiele-Fans: Sportspiele, 
Schießspiele, Denkspiele, 
Spielegeneratoren, Aben¬ 
teuerspiele, Brettspiele, 
Taktikspiele. Geschick¬ 
lichkeitsspiele und eine 
Marktübersicht aller in 
Deutschland erhältlichen 
professionellen Spiele 
bringen alles, was das 
Herz der Spiele-Fans 
höher schlagen läßt. 
BESTELLCODE: Spiele 



GRAFIK & DRUCKER 

(4. Programm-Sonderheft) 
Randvoll mit Informationen: 
Rund 28 Listings der Spit¬ 
zenklasse. Darunter Top- 
Listings zur räumlichen 
Darstellung von Körpern 
aus beliebigen Betrach¬ 
tungsrichtungen. 

Weiters: Prtifsummenli- 
stings, Drucker-Anwen¬ 
dung, Basic-Erweiterung, 
Hardcopy-Routinen, Zoi- 
chengenerator, Grundla¬ 
gen, Tips & Tricks. 
BESTELLCODE: 

Grafik & Drucker 



Neu: die 64'ei^Sammelbox! 


Für alle Leser, die »64’er« regelmä¬ 
ßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Service-An¬ 
gebot: die 64’er-Sammelbox! 


Übrigens: Die Sammelbox ist 
nicht nur ein praktisches 
Aufbewahrungsmittel: Sie 
eignet sich auch her¬ 
vorragend als Ge¬ 
schenk für Freun¬ 
de und Bekannte 
zu vielen 
Anlässen. 


Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nachschla¬ 
gewerk. 


























Floppy 


ProDat — 
Dateiverwal¬ 
tung mit 
Raffinessen 

Das Besondere an »ProDat« ist, daß 
man die Eingabemaske wie bei den 
teuren kommerziellen Programmen 
selbst definieren kann. Außerdem ist 
»ProDat« durch verschiedene Maschi¬ 
nenprogramme besonders schnell 
und einfach zu bedienen. 

Wenn man das Listing vollständig und fehlerfrei eingetippt 
hat, darf man erst mal aufatmen. Elf KByte Basic sind schließ¬ 
lich kein Honiglecken. Im Bereich von $0334 (820) bis $03cf 
(1020) stehen verschiedene Maschinenprogramme. Da dies 
aber der Kassettenpuffer ist, läßt sich »ProDat« nicht ohne wei¬ 
teres für Datasette verwenden. 

Die Daten werden von Maschinenroutinen geladen und ge¬ 
speichert. Auch das Kopieren der Bildschirmmaske der aktuel¬ 
len Datei in den Bildschirmspeicher geschieht in Maschinen¬ 
sprache. Da die INPUT-Routine des Betriebssystems geringfü¬ 
gig geändert wurde, bereitet bei der Maskenerstellung auch 
die Eingabe von Anführungszeichen, Doppelpunkten oder 
Kommata keinerlei Schwierigkeiten. Um bei der Verarbeitung 
der Daten der gefürchteten Garbage-Collection aus dem Weg 
zu gehen, wurde eine etwas geänderte Version des Stringver- 
tauschers von Boris Schneider aus der 64’er, Ausgabe 1/85 
verwendet. Für Interessierte zeigt Tabelle 1 eine dokumentier¬ 
te Liste der wichtigsten im Programm verwendeten Variablen. 
Hinweise zum Abtippen: 

Manche Zeilen haben Überlänge, das heißt, sie sind länger 
als die vom Basic-Interpreter erlaubten 80 Zeichen. Diese Zei¬ 
len können Sie nur mit den im Anhang D des Commodore- 
Handbuchs vermerkten Abkürzungen der Basic-Befehle ein¬ 
geben. Das gilt zum Beispiel für die Zeile 360. Leerzeichen vor 
und nach den einzelnen Basic-Befehlen dienen nur der Über¬ 
sichtlichkeit und können beim Eintippen ersatzlos weggelas¬ 
sen werden. 

Programmbeschreibung: 

Menü 1, Hauptmenü 

1 — Aufruf Menü 2 

2 — Neue Datei definieren 

Zuerst muß die Eingabemaske definiert werden. Wie das 
aussehen kann, zeigt Bild 1. Sie können frei mit den Cursor- 
Tasten auf dem Bildschirm umherwandern und Ihr persönli¬ 
ches Eingabeformular erstellen. Dabei sind alle Tasten und Zei¬ 
chen erlaubt. (Vorsicht vor SHIFT-CLR!) Zahlen zum Beachten: 
Maximale Felderanzahl (in der Sprache der Dateiverwaltung 
wird jede Stelle in der Maske, an der Sie später eine Eingabe 
machen, als Feld bezeichnet): 1 500 pro Datei, 40 pro Daten¬ 
satz (ein Datensatz ist eine mit Daten gefüllte Eingabemaske). 
Maximale Feldlänge: 80 Zeichen. 

Wie das Beispiel Bild 1 zeigt, werden Felder mit Hochpfeilen 
markiert. Wird der abschließende Pfeil weggelassen, so nimmt 
das Programm hierfür die maximale Feldlänge von 80 Zeichen. 


Wird später bei der Eingabe der Schlußpfeil erreicht, so 
springt der Cursor automatisch zum nächsten Feld weiter. Die 
Pfeile selbst tauchen später nicht mit in der Eingabemaske auf 
(siehe Bild 2). Mit dem Pfeil nach links können Sie eine Daten¬ 
satznummeranzeige programmieren. Das heißt, daß an dieser 
Stelle später die Nummer des Datensatzes innerhalb der Datei 
ausgedruckt wird. Weiterhin ist wichtig, daß Sie die letzte Bild¬ 
schirmzeile nicht verwenden dürfen. Ein Feld in der vorletzten 
Zeile darf also nur 40 Zeichen lang sein! Nachdem die Einga¬ 
bemaske definiert ist, müssen noch die Druckparameter ein¬ 
gegeben werden (siehe nächster Menüpunkt). 

3 — Druckparameter festlegen/ändern 

Nun müssen Sie festlegen, welche Felder in welcher Rei¬ 
henfolge später auf dem Drucker ausgedruckt werden sollen. 
Ein Feld wird mit der »eckigen Klammer auf« markiert (siehe 
Bild 3). Sie können natürlich auch erklärenden Text oder ähnli¬ 
ches ausdrucken lassen. Alles, was zwischen den »eckigen 
Klammern zu« steht, wird später im Breitschrift-Modus ge¬ 
druckt. Durch Änderung der Zeilen 2 570 und 2 580 hat man 
auch andere Möglichkeiten, zum Beispiel Kursiv-Druck oder 
dergleichen. Es können maximal 60 Druckzeilen definiert wer¬ 
den. Zu beachten ist, daß ein angesprochenes Feld auch wirk¬ 
lich vorhanden ist, da dies nicht überprüft wird. Sie können ein 
Feld auch mehrmals ausgeben lassen, das liegt ganz bei Ih¬ 
nen. Eine Druckzeile kann maximal 80 Zeichen fassen, wo¬ 
durch beispielsweise auch kleinere Förmbriefe möglich sind. 

4 — Directory laden 

5 — File löschen 

6 — Validate 

7 — Disk formatieren 

8 — File umbenennen 


Die Menüpunkte 4 bis 8 erklären sich von selbst, bezie¬ 
hungsweise sind im Floppy-Handbuch genauer erklärt. 


a%(x,y) 

Cursorposition für Maske 

a1% 

Zeile für Datensatznummeranzeige 

a2% 

Spalte für Datensatznummeranzeige 

d, d$ 

Anzahl Felder je Datei 

ds 

aktuelles Feld 

df 

Anzahl Druckfelder 

f 

Anzahl Felder je Datensatz 

f1.f2.f3 

Für Fehlermeldung 

fe$(x) 

Feld 

fl 

Flag für alles mögliche 

n$,na$ 

Name der Datei 

pz$(x) 

Druckzeile 

ud 

Flag für unveränderte, geänderte 
oder nicht im Speicher stehende Datei 

Tabelle 1. Die wichtigsten Variablen. 


fl Ein Feld zurück 

f3 Feld löschen 

f5 Anzeige »Bytes free« 

f7 Eingabe beenden 

Tabelle 2. Tastenbelegung im Anzeigemodus. 


+ Vorwärtsblättern 

— Rückwärtsblättern 

I Löschen angezeigter Datensatz 

s Suchen 

fl Angezeigten Datensatz formatiert ausgeben 

f3 Hardcopy erstellen 

e Datei erweitern (Eingabemodus) 

a Datensatz ändern 

I Beenden 

Tabelle 3. Tastenbelegung im Eingabemodus. 
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ADRESSE NR. : <- 


Vorname: T 
Name : t 
Strasse: t 
Telefon: t 
Postltz: t 

Bemerkung: f 
T 

Bild 1. So definiert man eine Eingabemaske. 


TOrt: f 


t 

t 

t 

t 

t 


ADRESSE NR.: 


Vorname: 
Name : 
Strasse: 
Telefon: 
Post 1tz: 


Ort: 


Bemerkung: 

Bild 2. Beim Arbeiten mit der Datei sieht die Maske so 
aus. 


s*eR 


Neue Datei definieren 


Name der Datei? Adressen 
Druckparameter eingeben! 

1. Druckzeile: 

[01 [02 

2. Druckzeile: 

C03 

3. Druckzeile: 

C05 [06 

4. Druckzeile: 

5. Druckzeile: 

ITelefon:1'[04 

6. Druckzeile: 

alles richtig (j/n)? j 

Bild 3. So könnten die Druckparameter für unsere Bei¬ 
spielmaske aussehen. 


Menü 2, Datei verwalten 

1 — Datei laden 

Sollte eine erweiterte oder geänderte Datei noch im Spei¬ 
cher stehen, so wird sicherheitshalber erst gefragt, ob Sie 
nicht erst speichern möchten. Die vorhandene Datei wird 
sonst gelöscht. 

2 — Datei pflegen/ändern/ergänzen 
Nach Wahl dieses Punktes sind Sie zunächst im Anzeige¬ 
modus, der wie Bild 4 aussehen könnte. In diesem Modus sind 
einige Tasten mit Sonderfunktionen belegt. (Siehe Tabellen 2 
und 3) 

3 — Datei abspeichern 

4 — Datei sortieren 

Es besteht jetzt die Möglichkeit, entweder alphabetisch 
nach einem bestimmten Feld zu sortieren, oder man läßt sich 
bestimmte Daten heraussuchen, zum Beispiel alle Adressen 
eines bestimmten Postleitzahlbereichs. Die kann man auf dem 
Drucker ausgeben lassen, oder speichert sie gleich in einer 
neuen Datei ab. 

5 — Alle angegebenen Felder der Datei können aufaddiert 
werden, zum Beispiel bei einer Haushaltsbuchhaltung alle 
Ausgaben für Essen, etc. 

6 — Aufruf Menü 3 

Menü 3, Druckermenü 

1 — Alle Datensätze mit den vorher definierten Druckparame¬ 
tern auf dem Drucker ausgeben. 

2 — Gesamte Datei ausdrucken. 

3 — Entspricht Punkt 1, aber nur in Verbindung mit der Sortier¬ 
routine. 

4 — Entspricht Punkt 2, aber nur in Verbindung mit der Sortier¬ 
routine. 

Allgemeine Hinweise: 

Sollte der Cursor einmal an einer Stelle stehenbleiben, und 
auch kei ie Taste mehr annehmen, so ist das kein Grund zur 
Panik. Der Computer braucht ab einer gewissen Datenmenge 
einfach Zeit, um das Eingegebene sinnvoll im Speicher unter¬ 
zubringen. Wenn Sie »ProDat« als Textverarbeitungsprogramm 
verwenden wollen, so definieren Sie die Eingabefelder einfach 
über den gesamten Bildschirm und lassen die Datensatz- 
Nummeranzeige als zum Beispiel Seitennummer des Textes 
arbeiten. (Wolfgang Hahn/tr) 


ADRESSE NR.: 1 


Vorname: Wolfgang 
Name : Hahn 

Strasse: An der Stadtmauer 
Telefon: 09253/1744 
Postltz: S671 Ort: Weissenstadt 


12 


Bild 4. Ein ausgefüllter Datensatz. 


R 


A 


AUTOR: WOLFGANB HAHN 
AN DER STADTMAUER 12 
8687 WEISSENSTADT 
TELEFON: 09253/1744 


10 REM ************************ 

20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 

100 REM ************************ 

110 : 

120 PRINT CHR*(14):GOSUB 2980:PRINT"C6D0WN 
>4 SEK.":G0SUB 3820 

130 POKE 90,0:POKE 91,192:P0KE BB,0:POKE 8 
9,192:POKE 780,0:POKE 781,160:SYS 820 
140 POKE 90,0:POKE 91,0:POKE 88,0:POKE 89, 
0:POKE 780,0:POKE 781,224:SYS 820:POKE 
1,53 

150 5=44136:FOR I=S TO S+B STEP 4:P0KE 1,0 
:NEXT:S=43991:POKE S,3:P0KE S+1,172:S= 
42349 

160 POKE S,228:POKE S+1,180:FOR I=S+4 TO S 
+8:POKE 1,234:NEXT:POKE 59012,96 
170 POKE 1,55:CLR:G0SUB 3980 
180 REM HAUPTMENUE 
190 GOSUB 2980:PRINT1— DEFINIERTE DATEI 
BENUTZEN" 

200 PRINT"<DOWN}—2— HEUE DATEI DEFINIEREN" 
210 PRINT"CDOWNJ-3- DRUCKPARAMETER AENDERN 


<063> 

<069> 

<130> 

<089> 

< 179> 
<136> 

< 171 > 
<032> 

< 139> 

< 153> 
<086> 

< 011 > 

<234> 

<231 > 

< 022 > 

<221 > 
<232> 
<062> 

<216> 

< 168> 

<054> 


Listing »ProDat«. Beachten Sie bitte die Eingabehinwei¬ 
se auf Seite 6. 




























Floppy 


220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 


340 


350 

360 


370 

380 

390 

400 

410 

420 


430 

440 

450 

460 

470 

480 

490 


500 

510 


520 

530 


540 


550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

7B0 

790 

800 

810 


E=2:GOSUB 2970 

PRINT"—4— fllRECTORY LADEN“ 

PRINT"<D8WN}-5- £ILE LOESCHEN" 

PRINT"£D0WN>-6- VALIDATE" 

PRINT"£D0WN>-7- 31SK FORMATIEREN" 
PRINT“£D0WN>-8- £ILE UMBENENNEN" 

GOSUB 3010:IF E<1 OR E>8 THEN 280 
ON E GOSUB 690,330,320,3200,3420,3500, 
3550,3610 
GOTO 190 

REM NEUE DATEI DEF. 

X—1:IF D=0 THEN RETURN 
GOSUB 2950:PRINT"£HOME,DOWN,8RIGHT,SPA 
CEJJ4EUE HATEI DEFINIEREN£SPACE,2D0WN>" 
:IF X=—1 GOTO 540 

PRINT"CDOWNIfllT HARDCOPY <J/N/t=ZURUEC 
K>":GOSUB 3010:IF E*="T"THEN RETURN 
PRINT"£CLR>" 

PRINT“CHOME>“;:POKE 1,53:P0KE 58879,13 
3:POKE 59639,24:POKE 780,0:SYS 58826:P 
OKE 1,55:SYS 895 
IF E*<>"J"THEN 390 

GOSUB 2670:SYS 932:IF L=2 GOTO 380 
CLR: GOSUB 3980:F=1:A1X=-1 
FOR 1 = 1024 TD 1983:IF PEEK(IX >30 GOTO 
450 

AX(F,Y)=(1—1024)/40:POKE I,32:F0R Z=0 
TO 79:IF PEEK(I+Z)<>30 THEN NEXT Z 
Y=Y+1: AX(F,Y) =1 —<A7.(F, Y—1) *40+1024) :Y= 
Y+1:AX(F,Y)=Z:Y=0:I=I+Z:IF Z=B0 THEN I 
= 1-1 

IF Z<80 THEN POKE 1,32 
F=F+1:IF F=40 GOTO 490 

IF PEEK (I ) =31 THEN A1X= ( 1-1024) /40: A27. 

=I-(A1X*40+1025):POKE 1,32 

NEXT I:IF F=1 THEN F=40:GOTO 490 

FOR 1=1984 TO 2023:IF PEEK(I)=30 OR PE 

EK(I)=31 THEN POKE 1,32 

NEXT:IF AX(F-1,0)=23 AND AX(F-1,2)>40 

THEN AX (F—1,2)=40 

F=F—1:IF F=39 THEN PRINT"£CLR,2D0WN>£E 

LDERANZAHL PRUEFEN!!CDOWNJ",, T*:GOSUB 

3010:SYS 932:GOTO 360 

SYS 895:IF A2X<0 THEN A2X=0 

GOSUB 2950:PRINT"£HOME,DOWN,BRIGHT,SPA 

CEJHEUE HATEI DEFINIEREN£SPACE,2D0WN>" 

IF X=—1 GOTO 540 

INPUT"HAME DER DATEI",-NA*:IF RIGHT*(NA 
*,1)="*"GOTQ 530 

PRINT"HRUCKPARAMETER EINGEBEN!":POKE 1 
80,81:POKE 129,1:P0KE 1,53:P0KE 58879, 
13 

FOR 1=0 TO 59:PRINT I+1"£LEFT>. HRUCKZ 
EILE: “:E*="" 

INPUT E* 

IF E*=”"THEN PZ*(I)=”0"sGOTO 600 
PZ*(I)=E* 

IF E*="GOTO 610 
NEXT: PZ* (60) =" 

POKE 129,32:POKE 1,55:INPUT"ALLES RICH 

TIG (J /N)";E*:UD=1 

IF E*="N"GOTO 510 

Y=0:DF=I:E*="M/"+LEFT*(NA*,14) 

IF X=—1 THEN X=0:RETURN 
GOSUB 3060 

D*="0":D=0: GOSUB 1650: IF F1O0 THEN Y= 
Y+l:IF Y<2 GOTO 650 
GOTO 190 

REM HILFSMENUE 

GOSUB 2980:PRINT"£2D0WN>-1- HATEI LADE 

N" 

PRINT"£D0WN>-2- HATEI PFLEGEN" 

PRINT"£D0WN>-3- HATEI ABSPEICHERN" 
PRINT"£D0WN>-4- HORTIERROUTINE" 

PRINT"£DOWN>—5— HDDITIONSROUTINE" 
PRINT"£DOWN>-6- HRUCKER-flENUE" 

PRINT"£DOWN>-t- HURUECK" 

GOSUB 3010:IF E*="T"THEN RETURN 
IF E<1 OR E>6 GOTO 760 

ON E GOSUB 870,1110,1640,2070,3090,279 
0 

GOTO 690 

REM TEST FLOPPY 

POKE 768,61:OPEN 1,8,15,"I":CLOSE 1 


<211 > 
<029> 
<214> 
<098> 

< 195> 
<236> 
<078> 

<081 > 

< 118 > 

<053> 

<249> 


<0B4> 

<007> 

<084> 


<013> 
<095> 
< 121 > 
< 200 > 

<1B5> 

<004> 


< 188> 
< 102 > 
<025> 

< 022 > 

<079> 

< 191 > 

<069> 

r*CD 

<008> 
<061 > 

<035> 

<009> 

< 196> 


<038 > 

< 129> 
<182> 
<067> 
<084 > 
<01B> 
<008> 

< 161 > 

< 164> 

< 197> 
<105> 
<050> 

< 112 > 
<234> 

< 145> 

<007> 

< 161 > 
<049> 
< 161 > 
<157> 

< 103> 
<098> 
<045> 
<244> 

<137> 

<140> 

<013> 

< 119> 


820 IF STO-128 THEN POKE 768,139: RETURN <079> 

830 GOSUB 840:GOTO B10 <048> 

840 PRINT"£CLR,5D0WN>":E=1:GOSUB 2970:PRIN 
T"£5SPACE>£ERIPHERIE EINSCHALTEN! !“:PR 
INT T* <0B7> 

850 GOSUB 2970:GOSUB 3010:RETURN <234> 

860 REM LOAD FILE <072> 

870 GOSUB 2950:PRINT"£HOME,DOWN 5"SPC(13)" 

HATEI LADEN " <130> 

880 IF UD=1 AND D<>0 THEN PRINT"£4D0WN,SPA 
CE>HATEI ABSPEICHERN?! (J/N)£DOWN>":PR 
INT T*:GOSUB 3010:IF E*<>"N"THEN RETUR 
N <006> 

890 CLR:GOSUB 3980 <155> 

900 E*="":PRINT"£HOME,5D0WN>"A*"£DOWN>ÜIT 
WELCHER »ITEI WOLLEN HIE":INPUT"ARBEIT 
EN";E* <187> 

910 IF RIGHT*<E*,l)="*"GDTO 870 <178> 

920 IF E*="t"GOTO 1090 <088> 

930 IF E*=""THEN 900 <139> 

940 NA*=E* <240> 

950 UD=0 <100> 

960 E*="M/"+LEFT*(NA*,14):SYS 827(E*)E*:E= 

PEEK(141)»256+PEEK(140):POKE 139,PEEK( 

E) <079> 

970 POKE 140,PEEK(E+1>:POKE 141,PEEK(E+2): 

GOSUB 810:SYS 969:GOSUB 3710:IF Fl GOT 
0 870 <152> 

980 OPEN 2,B,2,NA*+",S,R”:POKE 180,81 <1B0> 

990 INPUT#2,F:INPUT#2,A1X:INPUT#2,A2X <107> 

1000 FOR 1=1 TO F:FOR X=0 TO 2:INPUT42,AX( 

I,X>:NEXT X,I <177> 

1010 INPUT#2,DF:POKE 1,54:FOR 1=0 TO DF:IN 

PUT#2,PZ*(I):IF PZ* (I) ="*-"GOTO 1030 <058> 

1020 NEXT <012> 

1030 INPUT#2,D <251> 

1040 IF D=0 GOTO 1080 <243> 

1050 POKE 129,255:FOR 1=1 TO D <214> 

1060 INPUT#2,FE*(I) <026> 

1070 NEXT I:POKE 129,32 <114> 

108P POKE 1,55:GOSUB 3710:CLOSE 2:IF Fl GO 
_ln6^j< 0 B70 <083> 

1090 E=1:GOTO 290 <098> 

1100 REM ANZEIGE <145> 

1110 IF UD=3 THEN RETURN <253> 

1120 DS=0:IF D=0 GOTO 1340 <234> 

1130 FL=7:L=0:IF DS<0 OR DS=D GOTO 3040 <193> 

1140 PRINT"£CLR>“; :FOR 1 = 1 TO 24:PRINT“£LI 

G.BLUE,40SPACE>";:NEXT <109> 

1150 PRINT"£LIG.BLUE,39SPACE,HOME}"; <045> 

1160 SYS 932: IF A1XO-1 THEN GOSUB 1320 <113> 

1170 FOR 1=1 TO F:GOSUB 1310:PRINT FE*(I+D 

S)j:NEXT <139> 

1180 IF L=2 THEN GOSUB 2680 <083> 

1190 IF FL=8 GOTO 2040 <221> 

1200 GOSUB 3010 <188> 

1210 IF E*="+"AND DS<D THEN DS=DS+F:GOTO 1 

130 <208> 

1220 IF E*="-"AND DS>=0 THEN DS=DS-F:GOTO 

1130 <207> 

1230 IF E*="£F1>"AND FL< >9 THEN Y=0:GOSUB 

2460:GOTO 1130 <011> 

1240 IF E*="£F3>"AND FL<>9 THEN GOSUB 2670 

:IF L=2 GOTO 1160 <167> 

1250 IF E*="L”AND FL<>9 GOTO 1800 <233> 

1260 IF E*="S"AND FL< >9 GOTO 1890 <154> 

1270 IF E*="A"AND FL<>9 GOTO 1350 <129> 

1280 IF E*="E"THEN DS=D:FL=0:GOTO 1340 <1B6> 

1290 IF E*="T“THEN RETURN <102> 

1300 GOTO 1200 <002> 

1310 POKE 214,AX(1,0):POKE 211,AX(I,1):SYS 

58640:RETURN <161> 

1320 POKE 214,A1X:POKE 211,A2X:SYS 58640:P 

RINT DS/F+1:RETURN <221> 

1330 REM INPUT-ROUT. <243> 

1340 PRINT"£CLR>":SYS 932 <126> 

1350 OPEN 3,3:POKE 204,0:UD=1 <128> 

1360 IF A1XO-1 THEN GOSUB 1320 <065> 

1370 IF DS+F>1499 THEN GOSUB 2420:GOTO 146 

0 <194> 

1380 FOR 1=1 TO F:POKE 1,53 <162> 

1390 Y=0:X=LEN(FE*(DS+I)):GOSUB 1310 <117> 

1400 SYS 861 <070> 

Listing »ProDat« (Fortsetzung) 
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Floppy 


1410 

BOSUB 3010 

<144> 

1960 

FOR X=V TO D STEP P:PRINT"CUP>"X:E=LE 


1420 

IF E*=CHR*<13)THEN PRINT E*;:GOTO 154 



N(FE*(X))—1:F1=E—L:IF LE>E GOTO 1990 

<054> 


0 

<237> 

1970 

FOR Y=0 TO E:IF Y<=F1 THEN FOR Z=1 TO 


1430 

IF E*="<F1}"AND I>1 THEN I=I-2:60T0 1 



LE:IF MID*(S*,Z,1)=MID*(FE*(X),Y+Z,1 



570 

<206> 


)THEN NEXT:GOTO 2030 

< 13B> 

1440 

IF E*="{F3}"THEN X=0:Y=0:GOSUB 1310:P 


19B0 

NEXT Y 

<15B> 


RINT LEFT*(A*,A7.(I,2));:G0SUB 1310:GO 


1990 

NEXT X 

< 160> 


TO 1400 

<160> 

2000 

IF FL =8 GOTO 1130 

< 010 > 

1450 

IF E*="{F5}"G0T0 1860 

<018> 

2010 

PRINT"(DOWN}-"S*"- NICHT GEFUNDEN! ! " ; 

< 111 > 

1460 

IF E*="{F7}"G0T0 1600 

<045> 

2020 

GOSUB 3010:GOTO 1160 

<11 B> 

1 4 70 

IF E*=" {DOWNVAND Y<40 AND AX(I,2)>Y+ 


2030 

DS=F*INT((X-l)/F):FL=8:L=0:GOTO 1160 

< 1B9> 


39 THEN Y=Y+39:GOTO 1500 

<247> 

2040 

GOSUB 3010:IF E*<>"J"GOTO 1130 

<182> 

1480 

IF E*="IUPJ"AND Y>39 THEN Y=Y-41:GOTO 


2050 

V=X+P:GOTO 1950 

< 134 > 


1500 

<208> 

2060 

REM S 0 R T 

<071 > 

1490 

IF £.*="fRVSONVOR E*="{RVOFF}"OR E*=" 


2070 

IF D<F*2 OR D=0 THEN RETURN 

< 139> 


<CEL>"OR E*="OJP}"OR E*="{DOWN}"OR E* 


2080 

GOSUB 2950:PRINT"{HOME,DOWN}"SPC(10)" 



=CHR*(148)OR E*="{HOME}"OR E*="{CLR)" 



SDRTIER-SDUTINE " 

<050> 


GOTO 1410 

< 220 > 

2090 

PRINT"{2D0WN}-1- ALLES ALPHABETISCH S 


1500 

Y-Y+lsIF X<Y THEN X=Y 

<227> 


ORTIEREN" 

< 113> 

1510 

IF E*="tLEFT>"THEN Y=Y-2:IF Y<0 THEN 


2100 

PRINT“{DOWN}—2— ^STIMMTE SRUPPEN HER 



Y=0:GOTO 1410 

< 020 > 


AUSSORTIEREN{DOWN}":GOSUB 2970:POKE 8 


1520 

PRINT E*;:IF Y=A7. (1,2) GOTO 1540 

<051 > 


57,F*3 

<071 > 

1530 

GOTO 1400 

<00B> 

2110 

GOSUB 3010:IF E>2 OR E<1 GOTO 2110 

<079> 

1540 

GOSUB 1310:POKE 180,X 

< 120 > 

2120 

UD=1:IF E=2 GOTO 2230 

<126> 

1550 

FE*(DS+I)="":POKE 213,80:POKE 129,255 


2130 

POKE 1,54 

< 190> 


:INPUT#3,FE*(DS+I>:POKE 129,32:P0KE 1 


2140 

PRINT"{DOWNISEBEN SIE DIE AELDNUMMER 



,55 

<166> 


EIN NACH DER": INPUT"SORTIERT WERDEN S 


1560 

IF RIGHT*(FE*(DS+I),1><>CHR*(32)THEN 



OLL: ";E* 

<005> 


FE*(DSFI)=FE*(DS+I)+CHR*(154) 

< 105> 

2150 

Y=VAL(E*>:POKE 1,55:IF Y<1 OR Y>F THE 


1570 

NEXT I 

<130> 


N POKE 214,11:SYS 58640:GOTO 2130 

<033> 

1580 

IF FL GOTO 1620 

< 134> 

2160 

PRINT"{2D0WN}“:Z=D/F:PRINT"MAX."Z" 3JR 


1590 

DS=DS+F:SYS 932:GOTO 1360 

<129> 


CHGAENGE(2D0WN}":S=D-F:L=0 

<096> 

1600 

IF FL GOTO 1620 

<154 > 

2170 

PRINT"DURCHGANG: 1" 

<145> 

1610 

D=DS:DS=0 

< 210 > 

2180 

FOR E=1 TO Z:L=0 

< 136> 

1620 

POKE 1,55: POKE 207,0: POKE 204,1 .-PRINT 


2190 

FOR I=Y TO S STEP F:IF FE*(I)>FE*(I+F 



#3,;:CL0SE 3:X=0:GOTO 1130 

<218> 


)THEN L=1:X=I—Y+l:SYS 827FE*(X+F)FE*( 


1630 

REM SPEI CHERN 

< 111 > 


X) 

< 151 > 

1640 

IF D=0 THEN RETURN 

<037> 

2200 

NEXT I:IF L THEN PRINT,"{UP}"E:NEXT E 

<217> 

1650 

GOSUB 2950:PRINT"{HOME,DOWN >“SPC(10)" 


2210 

GOTO 1120 

<19B> 


■SATEI ABSPEICHERN " 

<148> 

2220 

REM SORT BEST. KRIT. 

<093> 

1660 

PRINT“<3D0WN>"W* 

<03B> 

2230 

INPUT"{DOWN}AACH WELCHEM £ELD SOLL SO 


1670 

GOSUB 810:UD=0 <B67> 

RT. WERDEN“;S*:S=VAL(S*>:IF S>F GOTO 


1680 

OPEN 2,8,2,"+NA*+",S,W" 

< 134> 


2230 

< 108> 

1690 

PR I NT#2 , F: PR I NT#2 , A17.: PR I NT#2, A27. 

< 140> 

2240 

POKE 180,80:POKE 129,1:POKE 1,53:INPU 


1700 

FOR 1 = 1 TO F: FOR X=0 TO 2: PRINT#2, A7. ( 



T"CDOWNTSORTIERKRITERIUM UNTERE BRENZ 



I,X):NEXT X,I 

<135> 


E: ";X* 

<24B> 

1710 

PRINT#2,DF:FOR 1=0 TO DF:PRINT#2,PZ*( 


2250 

INPUT"{DOWNISORTIERKRITERIUM OBERE BR 



I):IF PZ*(I)="«-“GOTO 1730 

< 137> 


ENZE: ";Y*:POKE 1,55:POKE 129,32 

< 174> 

1720 

NEXT 

<206> 

2260 

PRINT"<DOWN}<l>AEUE BATEI OD. AUSGABE 


1730 

PRINT#2,D:IF D=0 GOTO 1770 

<241 > 


AUF <2>ARUCKER"; 

<152> 

1740 

FOR 1=1 TO D 

< 196 > 

2270 

INPUT E*:FL=VAL(E*> : IF FL<1 OR FL>2 G 


1750 

PRINT#2,FE*(I) 

<032> 


OTO 2270 

<057> 

1760 

NEXT I 

<064> 

2280 

IF FL=2 THEN GOSUB 2790:GOTO 2320 

<131 > 

1770 

CLOSE 2:GOSUB 3710 

<085> 

2290 

INPUT"{DOWN}AAME DER SATEI";N*:IF N*= 


17B0 

RETURN 

<058> 


"T"THEN RETURN 

<225> 

1790 

REM DS LOESCHEN 

< 165> 

2300 

E*="M/"+N*:GOSUB 3060:IF Fl GOTO 2380 

<230> 

1800 

POKE 214,24:POKE 211,0:SYS 58640:PRIN 


2310 

NA*=N* 

< 152> 


T"{RVSONISIND SIE SICHER? (J/N)CRVOFF 


2320 

IF E*="T"THEN RETURN 

< 116> 


>";:GOSUB 3010 

< 178> 

2330 

DS=0:E=0:FOR L=S TO D STEP F:E*=LEFT* 


1810 

IF E*< >"J"AND E*< >" jL"GQTO 1130 

< 154> 


(FE*(L>,LEN(Y*)):IF E*<X*OR E*>Y*GOTO 


1820 

D=D-F:POKE 857,F*3:IF DS=D THEN DS=DS 



2350 

< 22 B> 


-F:GOTO 1840 

<252> 

2340 

DS=L-S:ON FL GOSUB 2400,2340,2470,273 


1830 

SYS 932:FOR I=DS+1 TO D STEP F:SYS 82 



0 

<073 > 


7FE* (I ) FE* (I+F) .-NEXT 

< 191 > 

2350 

NEXT L 

< 172> 

1840 

GOTO 1130 

<114> 

2360 

IF FL=1 THEN D=E:DS=D 

<238> 

1850 

REM BYTES FREI 

<250> 

2370 

IF FLOl THEN OPEN 4,4,7: PRINT#4: CLOS 


1 B60 

F1=PEEK(214):F2=PEEK(211):POKE 214,24 



E 4:UD=0 

< 187> 


:POKE 211,0:SYS 58640:SYS 861 

<088> 

2380 

RETURN 

< 152> 

1870 

PRINT"CAREI:{ 6 SPACE >IC7LEFT}"FRE(0);: 


2390 

REM EINSORTIEREN 

<081 > 


POKE 214,Fl:POKE 211,F2:SYS 58640:GOT 


2400 

SYS B27FE*(E+1)FE*(DS+1):E=E+F:RETURN 

<234> 


0 1410 

<021 > 

2410 

REM DATEI VOLL 

<246> 

1880 

REM SUCHEN 

<253> 

2420 

POKE 207,0:POKE 204,1 

<071 > 

1890 

GOSUB 2950 .-PRINT" {HOME, DOWN } " SPC (12)" 


2430 

PRINT"{CLR,4DOWN}":E=1:GOSUB 2970:PRI 



SUCHEN “ 

<226> 


NT SPC(10)"SATEI VOLL!!”:PRINT T*:GOS 


1900 

E*="":INPUT"{2D0WNIAELDNUMMER";E*:L=1 

<036> 


UB 2970 

<080 > 

1910 

POKE 180,80:V=VAL(E*):IF V>F THEN PRI 


2440 

GOSUB 3010:E*="{F7}":RETURN 

< 196> 


NT"{2UP J" 5 :GOTO 1900 

< 111 > 

2450 

REM D R U C K 1 

< 121 > 

1920 

S*="":Z=1:Y=1:POKE 1,53:POKE 129,1:IN 


2460 

Y—1: GOSUB 2860 

<215> 


PUT"I2D0WNJSUCHWORT: ";S*:POKE 1,55:P 


2470 

OPEN 4,4,7 

< 197> 


OKE 129,32 

<251 > 

2480 

X=0: Y=0: IF EOl GOTO 2500 

<011> 

1930 

IF S*=""GOTO 1130 

<220> 

2490 

FOR DS=0 TO D-F STEP F 

<066> 

1940 

LE=LEN(S*):P=F:IF V=0 THEN P=1:V=1 

< 116> 

2500 

FOR 1=0 TO DF-1 

<003> 

1950 

PRINT"{CLR,2D0WN}ANZAHL FELDER:"D:PRI 






NT"{D0WN,6SPACE}—STES ££LD ABGESUCHT" 

<094> 
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2510 

IF PZ*(I)="0"GOTO 2610 

< 137> 

3100 

GOSUB 2950:PRINT"(HOME,DOWN >"SPC(11)" 


2520 

F1=LEN(PZ*(I)):FOR Z=1 TD Fl 

<036> 


BDDITIONSROUTINE " 

<037> 

2530 

E*=MID*(PZ*(I),Z,1> 

<178> 

3110 

INPUT"{3D0WNDHELCHE FELDER SOLLEN ADD 


2540 

IF E*<>" {"GOTO 2570 

<038> 


IERT WERDEN";E*:E=VAL(E*>:Y=0 

< 139> 

2550 

PRINT#4,FE*(DS+VAL(MID*(PZ*(I),Z+l,2) 


3120 

IF E<1 OR E>F GOTO 3110 

<016> 


>>} 

<034> 

3130 

INPUT"{2D0WNJ.3ATENSATZ FUER ERGEBNIS 


2560 

Z=Z+2:GOTO 2600 

<254> 


ANLEGEN"JE* 

<012> 

2570 

IF E*=" 3 "AND X=1 THEN X=0:E*=CHR*(15) 


3140 

FOR I=E TO D STEP F:Y=Y+VAL(FE*(I)):N 



:GOTO 2590 

< 186> 


EXT I:Y=INT(Y*100+.5)/100 

<231 > 

2580 

IF E*="3"THEN E*=CHR*(14):X=1 

<059> 

3150 

IF E*< >"J"GOTO 3180 

< 102> 

2590 

PRINT#4,E*j 

<069> 

3160 

FOR 1=1 TO F:FE*(I+D)=CHR*(250):IF 1= 


2600 

NEXT Z 

<024> 


E THEN FE*(I+D)="<LEFT>"+STR*(Y) 

<105> 

2610 

PRINT44 

<073> 

3170 

NEXT I:DS=D:D=D+I—1:UD=1:GOTO 1130 

<227> 

2620 

NEXT I 

< 164> 

3180 

PRINT"{2D0WN JfiESAMTSUMME £ELDER—HR."E 


2630 

IF E=1 THEN NEXT DS 

<023> 


"= "Y:PRINT“C2D0WN>"T*:GOSUB 3010:RET 


2640 

IF FL<>3 THEN PRINT#4 

< 171 > 


URN 

<071 > 

2650 

CLOSE 4:RETURN 

<005> 

3190 

REM DIRECTORY 

< 195> 

2660 

REM HARDCOPY 

<092> 

3200 

GOSUB 810:Y=0 

<244> 

2670 

Y"—1:GOSUB 2860:OPEN 4,4,7:IF L=2 THE 


3210 

GOSUB 2950 : PR I NT " {HOME, DOWN, 3RIGHT , SP 



N RETURN 

< 103> 


ACED.3IRECT0RY ” 

<069> 

2680 

PRINT"{HOMEOPEN 5,3:L=1024:POKE 1 


3220 

IF Y=1 THEN RETURN 

<037> 


,53 

<209> 

3230 

OPEN 3,B,0,"*":GET#3,E*,E* 

< 129> 

2690 

FOR I=L TO L+39:POKE 1024,PEEK(I):PRI 


3240 

PRINT:GET#3,E*,E*,S*,E* 

< 177> 


NT" IHOME J '• j : GET#5, E*: PRINT#4,E* j:NEXT 


3250 

E=ASC(S*+CHR*(0))+ASC(E*+CHR*(0))*256 

<247> 


:PRIMT#4:L=I 

<094> 

3260 

PRINT MID*(STR*(E)+"<4SPACE>",2,4); 

<057> 

2700 

IF IO2024 GOTO 2690 

<020> 

3270 

GET E*:IF E*<>""THEN CLOSE 3:RETURN 

<043> 

2710 

X=0:CLOSE 4:CLOSE 5:P0KE 1,55:RETURN 

< 115> 

3280 

GET#3,E*:IF ST GOTO 3360 

<247> 

2720 

REM D R U C K 2 

< 138> 

3290 

IF E*< >CHR*(34> GOTO 3280 

<206> 

2730 

OPEN 4,4,7:IF E<>2 GOTO 2750 

<011> 

3300 

GET#3,E*:IF E*<>CHR*(34)THEN PRINT E* 


2740 

FOR DS=0 TO D-F STEP F 

< 062 > 


;:GOTO 3300 

<209> 

2750 

FOR 1=1 TO F:PRINT#4,FE*(I+DS):NEXT I 


3310 

GET#3,E*:IF E*=" "GOTO 3310 

<224> 


:IF E=2 THEN NEXT DS 

<017> 

3320 

PRINT TAB(21)j 

< 195> 

2760 

IF FL<>4 THEN PRINT#4 

< 164> 

3330 

PRINT E*;:GET#3,E*:IF E*<>""GOTO 3330 

<208> 

2770 

CLOSE 4:RETURN 

<125> 

3340 

IF PEEK(214)>20 THEN PRINT:PRINT“{DOW 


2780 

REM DRUCKER-MENUE 

< 175> 


N>"T*j:GOSUB 3010:Y=1:GOSUB 3210 

<148> 

2790 

IF D=0 THEN RETURN 

< 171 > 

3350 

GOTO 3240 

<164> 

2800 

GOSUB 2980:PRINT"{2D0WNJ-1- fiESAMTE £ 


3360 

PR INT "3-(DECKE FREI" 

<002> 


ATENBANK MIT DEFINIERTEN{7SPACEJfELDE 


3370 

CLOSE 3 

<095> 


RN DRUCKEN 

< 149> 

3380 

GOSUB 3710 

< 194> 

2810 

PRINT"{DOWNJ-2- GESAMTE DATENBANK DRU 


3390 

PRINT:PRINT T*:GOSUB 3010 

<023> 


CKEN":Y=0 

<152> 

3400 RFTURN 

3410 r.LM SCRATCH 

< 156> 

2820 

PRINT" <D0WN>-3- DftTENSAETZE AUS .50RTI 


<015> 


ERROUTINE MITC6SPACEJDEFINIERTEN £ELD 


3420 

E=4:GOSUB 2960:PRINT"{HOME,DOWN >"SPC( 



ERN DRUCKEN 

<009> 


3)" £5 LE LOESCHEN " 

< 162> 

2830 

PRINT"{DOWN>—4— .GANZE ÜATENSAETZE AUS 


3430 

PRINT SPC(21)" TD = SIRECTORY “ 

< 182> 


SORTIERROUTINE C4SPACE J DRUCKEN 

<162> 

3440 

INPUT"{2D0WN>£ILENAME"j E* 

< 128> 

2840 

PRINT"CDOWNJ-t- ZURUECK" 

< 15B> 

3450 

IF E*="TD"THEN GOSUB 3200:GOTO 3420 

<077> 

2850 

GOSUB 3010:IF E*="f"THEN RETURN 

<105> 

3460 

IF E*="T"THEN RETURN 

<240> 

2860 

L=1 

<027> 

3470 

GOSUB 810:OPEN 1,8,15,"S:“+E*+",M/"+E 


2870 

POKE 768,61:OPEN 4,4,7:PRINT44:IF ST= 



*:GOSUB 3730 

<097> 


-128 THEN GOSUB 840:L=2:GOTO 2870 

<223> 

3480 

GOTO 3420 

<006> 

2880 

CLOSE 4:POKE 768,139:IF Y=-l THEN RET 


3490 

REM V A L I D A T E 

< 187> 


URN 

<061 > 

3500 

GOSUB 2950:PRINT“{HOME,DOWN >"SPC(13 >" 


2890 

IF L=2 GOTO 2790 

<069> 


HALIDATE{SPACE,4D0WNJ" 

<0B0> 

2900 

IF E<1 OR E>4 GOTO 2850 

<246V 

3510 

PRINT W* 

< 050 > 

2910 

IF E>2 THEN FL=E:RETURN 

< 184> 

3520 

GOSUB 810:OPEN 1,8,15,"V":GOSUB 3730 

<209> 

2920 

IF FL=2 GOTO 2850 

<063> 

3530 

RETURN 

<030> 

2930 

ON E GOTO 2470,2730 

< 192 > 

3540 

REM DISK FORMAT. 

< 125> 

2940 

REM 

<208> 

3550 

GOSUB 2950:PRINT"{HOME,DOWNJ"SPC(10)" 


2950 

E=3 

< 121 > 


HI SK FORMATIEREN " 

<099> 

2960 

PRINT"tCLR>"; 

< 104> 

3560 

INPUT"{3D0WN >HISK-HAME";E*:IF E*=“T"T 


2970 

FOR 1-1 TO E:PRINT"(BLACK)*»********* 



HEN RETURN 

<160> 


tL IG ■ BLU 


3570 

INPUT"{D0WN5HISK-HUMMER";Y*:IF Y*="T" 



E>";:NEXT:RETURN 

< 147> 


THEN RETURN 

< 189> 

2980 

GOSUB 2950:PRINT"{HOME,DOWN)"SPC(10)" 


3580 

PRINT"{2D0WN>"W*:GOSUB 810:OPEN 1,8,1 



£ROJAT ":PRINT"{1BD0WND":GO S 

< 136> 


5,"N:"+E*+","+Y*:GOSUB 3730 

< 143> 

2990 

PRINT,"C2UP,SPACE>5Y HDLFGANG HAHNCSP 


3590 

RETURN 

<092> 


ACE,HOME,3D0WN >":RETURN 

<240> 

3600 

REM R E N A M E 

< 0B4> 

3000 

REM G E T A L L G . 

<044> 

3610 

GOSUB 2950:PRINT"{HOME,DOWN)"SPC(9)" 


3010 

GET E*:E=VAL(E*):IF E*=""GOTO 3010 

<0B7> 


£ILE UMBENENNEN " 

< 040 > 

3020 

RETURN 

<028> 

3620 

INPUT"{4D0WN>ßLTER HAME";Y* 

< 175> 

3030 

REM DATEI ZUENDE 

<0B6> 

3630 

IF Y*="T"THEN RETURN 

<060> 

3040 

FL=9:E=1:PRINT"{CLR,3D0WNGOSUB 297 


3640 

INPUT"<2D0WN >HEUER HAME";E* 

<021 > 


0:PRINT SPC(10)"ÜATEI ZUENDE":GOSUB 2 


3650 

IF E*="T"THEN RETURN 

<176> 


970:GOTO 1200 

< 090 > 

3660 

GOSUB B10:OPEN 1,8,15,"R:"+E*+"="+Y* 

<225> 

3050 

REM SAVE MASKE 

<235> 

3670 

PRINT#1,"R:M/"+E*+"=M/"+Y*:GOSUB 3730 

<057> 

3060 

SYS 827(E*)E*:E=PEEK(141)»256+PEEK(14 


3680 

IF Fl< >0 GOTO 3610 

<060> 


0):POKE 139,PEEK(E):POKE 140,PEEK(E+1 


3690 

GOTO 3200 

<122> 


) 

< 138> 

3700 

REM DISK-ERROR 

<039> 

3070 

POKE 141,PEEK(E+2):POKE 176,0:POKE 17 


3710 

CLOSE 1 

<165> 


7,204:GOSUB 810:SYS 995:GOSUB 3710:RE 


3720 

OPEN 1,8,15:POKE 1,55 

<092> 


TURN 

<026> 

3730 

INPUT41,F1,S*,F2,F3 

< 132> 

3080 

REM ADDITION 

<208> 




3090 

IF D=0 OR D<F*2 THEN RETURN 

< 198> 
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3740 CLOSE 1 <195> 
3750 IF F1=0 THEN RETURN <248> 
3760 PRINT:E=l:GOSUB 2970 <167> 
3770 PRINT SPC(6)F1;S*;F2;F3 <058> 
3780 PRINT T* <042> 
3790 GOSUB 2970:GOSUB 3010 <146> 
3800 RETURN <046> 
3810 REM MAPRO 'S <204> 
3820 FOR Z=B20 TO 1020:READ X:POKE Z,X:S=S 

+X:NEXT <146> 


3830 DATA 133,095,134,096,076,191,163,032, 

158,173,165,100,133,140,1"65, 101,133 <192> 

3840 DATA 141,032,158,173,160,000,177,140, 

133,139,177,100,145,140,165,139,145 <173> 

3850 DATA 100,200,192,003,208,239,096,169, 

000,133,139,169,004,133,140,160,000 <111> 

3860 DATA 177,139,056,233,128,048,002,145, 

139,192,255,200,208,242,165,140,201 <001> 

3870 DATA 007,240,103,230,140,208,230,169, 

000,133,139,133,172,169,004,133,140 <202 > 

3880 DATA 169,204,133,173,160,000,177,139, 

145,172,192,255,200,208,247,165,140 <214> 

3890 DATA 201,007,240,068,230,140,230,173, 

208,233,169,000,133,139,133,172,169 <002> 

3900 DATA 204,133,140,169,004,133,173,160, 

000,177,139,145,172,192,255,200,208 <141> 

3910 DATA 247,165,140,201,207,240,031,230, 


140,230,173,208,233,160,000,162,008 <158> 

3920 DATA 032,186,255,166,140,164,141,165, 

139,032,1B9,255,162,000,160,204,169 <141> 

3930 DATA 000,032,213,255,096,160,001,162, 

008,032,186,255,166,140,164,141,165 <017> 

3940 DATA 139,032,189,255,162,255,160,207, 

169,176,032,216,255,096 <082> 

3950 IF S<>29538 THEN PRINT"FEHLER IN DATA 

S!!":STOP <162> 

3960 RETURN <208> 

3970 REM INITIALISIEREN <070> 

3980 T*="{9SPACEJIASTE DRUECKEN!":DIM FE*< 

1500) ,PZ* (60) ,A7.<40,2> :POKE 650,128:E 
=1 <033> 

3990 A*="{40SPACE>":A*=A*+A*:Y=0:L=0:UD=3 < 040> 

4000 W*="£1TTE WARTEN_":RETURN <190 > 


© &4'er 
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Schnell 
kopiert mit 
Hypra-Copy 

Hypra-Copy ist ein schnelles und kom¬ 
fortables Filecopy-Programm für den 
C 64. Das Kopieren wird um das Vier- 
bis Fünffache beschleunigt. 

Trotz der aufwendigen Lade- und Speicherroutinen ist es ge¬ 
lungen, das Programm insgesamt recht kurz zu halten; Hypra- 
Copy belegt, gespeichert auf der Diskette, nur ganze 15 
Blöcke. Somit ist der verfügbare Arbeitsspeicher sehr groß: 
Hypra-Copy kann sich bis zu 30 Filenamen »merken«, und in 
einem Ladegang können maximal 232 Blöcke eingelesen wer¬ 
den. Hat man das Programm (siehe Listing) mit dem MSE abge¬ 
tippt und gespeichert, kann es später ganz normal mit »LOAD 
”HYPRA-COPY”,8« geladen und mit »RUN« gestartet werden. 


Es erscheint dann das Hauptmenü: 

HYPRA-COPY 
:C: Copy Files 
:S: Scratch Files 
:D: Directory 
:0: Order Disk 

Die Bedienung ergibt sich damit eigentlich schon von selbst. 
Drückt man die Taste »O«, erscheint auf dem Bildschirm eine 
eckige Klammer mit einem blinkenden Cursor dahinter. 

Nun kann man den Befehl eingeben, der zur Floppy ge¬ 
schickt werden soll. Reagiert die Floppy mit einer Fehlermel¬ 
dung, so wird diese auf dem Bildschirm ausgegeben. 

Bei Betätigung der Taste »D« erscheint das Directory. Der 
Ausdruck kann durch die CTRL-Taste angehalten werden. 
Durch Drücken der »S«-Taste gelangt man in den Scratch- 
Modus (löschen von Files). Um Verwechslungen mit dem 
Copy-Modus auszuschließen, wird erst einmal mit einer 
dicken, reversen Balkenüberschrift darauf aufmerksam ge¬ 
macht, daß man sich tatsächlich im Scratch-Modus befindet. 
Danach erscheint das Directory, jedoch erscheint hinter jedem 
Filenamen ein »(Y/N)«; relative Files sowie Files, deren Länge 
gleich 0 oder größer als 232 Blöcke ist, werden bei dieser Be¬ 
fragung übergangen, denn diese Routine wird auch beim Ko¬ 
pieren gebraucht und Files mit diesen Eigenschaften kann 
Hypra-Copy nicht kopieren. 

Files, die sich Hypra-Copy merken soll, müssen mit »Y« mar¬ 
kiert werden. Ist man versehentlich im Scratch-Modus gelan¬ 
det, so kann man diesen Modus mit der STOP-Taste verlassen 
(ansonsten dient die STOP-Taste dazu, Hypra-Copy zu been¬ 
den; man kann es dann aber wieder mit »RUN« starten). 

So werden nach und nach alle Files der Directory durchge¬ 
gangen. Will man nur einige wenige Files am Anfang einer el¬ 
lenlangen Directory löschen (oder kopieren), so braucht man 
die resUii hen Files nicht mehr mit »N« zu bearbeiten, es genügt 
ein Druck auf die »t «-Taste, und man gelangt zum Ende des Di¬ 
rectory. Hier wird dann gefragt, ob man nun auch sicher ist, daß 
diese Files gelöscht werden sollen. Beantwortet man diese 
Frage mit »N«, gelangt man zurück in das Hauptmenü, andern¬ 
falls werden die markierten Files gelöscht. 

Damit man weiß, wie weit das Programm mit dem Löschen ist, 
wird immer der Name des Files ausgegeben, das gerade ge¬ 
löscht wird. Am Ende des Löschvorgangs gelangt man auto¬ 
matisch wieder in das Hauptmenü. 


Der Copy-Modus 


So, nun zum Copy-Modus, in den man mit der »C«-Taste 
kommt. Zuerst werden wieder, genau wie beim Löschen, die 
Namen der zu kopierenden Files eingelesen. 

Danach wird gefragt, ob man die Files einzeln oder gesam¬ 
melt kopieren will und ob beim Speichern ein »VERIFY« durch¬ 
geführt werden soll. Verzichtet man auf dieses Verify, so wird 
etwas schneller kopiert. Um den Bedienungskomfort zu erhö¬ 
hen, werden die Antworten auf diese Fragen, wie auch auf die 
»SURE?«-Frage (sure = Sind Sie sicher?) im Scratch-Modus 
und die »SAVE BUFFER AGAIN?«-Frage (Soll das gleiche 
noch einmal gespeichert werden?), nicht per GET ($ffe4), 
sondern per BASIN ($ffcf) eingelesen, wobei die wohl ge¬ 
bräuchlichere Antwort schon vorgegeben ist; man braucht al¬ 
so nur noch RETURN drücken; natürlich kann diese vorgege¬ 
bene Antwort aber auch überschrieben werden. 

Nun werden die Programme geladen. Ist die Summe der 
Blöcke der einzelnen Files kleiner als 233, können sogar alle 
auf einmal eingelesen werden; andernfalls wird ein erneuter 
Ladeanlauf nötig. 

Sind die Files geladen, wird man aufgefordert, die Ziel-Disk 
einzulegen; außerdem wird noch die Anzahl der zu speichern¬ 
den Blocks angegeben, und ein Untermenü erscheint. 

69 








Floppy 


Es besteht jetzt noch die Möglichkeit, diverse Directories 
anzusehen oder Befehle zur Floppy zu schicken. 

Man kann also in aller Ruhe eine passende Diskette aussu¬ 
chen. Ist man gewillt fortzufahren, so drückt man einfach die 
Funktionstaste F7, dann beginnt nämlich das Speichern. An¬ 
schließend wird man gefragt, ob man eben diese Files noch 
einmal auf eine andere Diskette schreiben will. Beantwortet 
man diese Frage mit »Y«, beginnt der komplette SAVE-Vorgang 
von neuem. Andernfalls wird normal fortgefahren und, wie 
schon erwähnt, können erneute Ladeanläufe erforderlich wer¬ 
den. 

Wurden alle Files kopiert, so wird in das Hauptmenü zurück¬ 
gekehrt. 

Nun zur Fehlerbehandlung: Mit »Fehlern« sind nicht Fehler 
gemeint, die in der Programmstruktur von Hypra-Copy liegen, 
sondern Fehler, die von der Floppy signalisiert werden; sei es, 
daß man einen unkorrekten Befehl an die Floppy schickt, man 


beim Kopieren die falsche Diskette einlegt oder Write- oder 
Read-Errors auftreten. 


Erste Hilfe bei Fehlern 


ln solchen oder ähnlichen Fällen besteht immer die Möglich¬ 
keit, den Vorgang, bei dem der Fehler aufgetreten ist, zu wie¬ 
derholen beziehungsweise zu übergehen. Treten Fehler beim 
Öffnen eines Files auf, so kann man sogar nochmals Directo¬ 
ries ansehen und Befehle an die Floppy schicken. War es nicht 
möglich, ein File korrekt zu laden und wurde es übergangen, 
so wird dies bei der Angabe der zu speichernden Blöcke, wie 
auch beim Speichern selbst, berücksichtigt. Können Files aus 
irgendeinem Grund nicht korrekt gespeichert werden, so kann 
man diese auch überspringen. 

(Burkhard Graves/ev) 
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3c 

36 

13dl 


dd 

8a 

66 

95 

6a 

66 

95 

6a 

45 












10f 1 


04 

a5 

12 

a6 

13 

85 

16 

86 

e4 

13d9 


4a 

4a 

Sd 

00 

dd 

8a 

66 

95 

a3 

Listing »Hypra-copy« (bchluli) 
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Programme 
leichter laden 

Dieses Programm vereinfacht das La¬ 
den von Programmen durch direkte 
Auswahl aus dem Directory. 

Programme werden häufig nach dem Listen des Directorys 
durch Voranstellen eines »LOAD« und Ergänzung durch ”8:" 
oder ”,8,1“ geladen. Oftmals vergißt man dabei allerdings das 
Eintippen des Doppelpunktes oder man macht andere kleine 
Fehler, worauf sich der Computer mit einem »SYNTAX ER¬ 
ROR« meldet. 

Mit »Directory-Lader« (Listing) kann das Directory einer Dis¬ 
kette nun so manipuliert werden, daß wahlweise ein »,8:« oder 
ein »,8,1« an den Filenamen angehängt wird. Das vereinfacht 
den Ladevorgang um einiges: Nur noch das Directory listen, 
mit dem Cursor in die gewünschte Zeile fahren, »LOAD« einge¬ 
ben und schon geht’s los. 


So funktioniert der »Directory-Lader« 


Jedes Programm auf einer Diskette ist in einem Directory¬ 
block verzeichnet. Dort belegt der Name des Programmes 16 
Byte. Ist der Name kürzer als 16 Byte, wird er durch ein »SHIFT 
Space« (CHR$ 160) ergänzt. Dadurch wird auch das Ende ei¬ 
nes Namens vom DOS erkannt. 

Beim Listen des Directorys werden nun alle 16 Byte des Na¬ 
mens auf dem Bildschirm angezeigt. Das zu lösende Problem 
besteht also darin, den gewünschten Zusatz ebenfalls hinter 
dem Programm anzuzeigen. 

Dazu wird zuerst der erste Block des Directorys eingelesen. 
Der Bufferpointer wird auf den ersten Namen des Blocks ge¬ 
setzt und der Name ausgelesen. Hierbei werden alle 16 Byte 
des Namens verwendet. Durch Betätigen entsprechender Ta¬ 
sten wird nun der Name wie folgt bearbeitet: 

@ Löschen des Zusatzes 
t Überspringen des Namens ohne Änderung 
M Schreiben des Zusatzes»,8,1« 

B Schreiben des Zusatzes »,8:« 

Beim Schreiben des Zusatzes wird der Name des Pro¬ 
gramms von hinten durch den Zusatz ergänzt. Dabei werden 
Programmnamen, die länger als 11 Zeichen bei Maschinen¬ 
programmen oder länger als 12 Zeichen bei Basic- 
Programmen sind, entsprechend verkürzt. 

In dieser Weise werden sämtliche Namen eines Directory- 
Blocks bearbeitet. 

Da der Bufferpointer jedesmal weitergesetzt wird, kann es 
Vorkommen, daß auch bereits gelöschte Programme bearbei¬ 
tet werden. Das hat jedoch keinen weiteren Einfluß. 

Nach der Bearbeitung eines Blocks wird dieser zurückge¬ 
schrieben, und das Programm fährt mit dem nächsten Block 
fort. 

Tabelle 1 zeigt die verwendeten Variablen, Tabelle 2 die ein¬ 
zelnen Routinen des Programms. 

Während der Bearbeitung wird ständig der nächste zu bear¬ 
beitende Block angezeigt. Erscheinen die Werte 0 und 255, 
so ist der letzte Block erreicht. Man hat jetzt eine Diskette mit 
modifiziertem Directory und damit einfach zu ladenden Pro¬ 
grammen vorliegen (Bild 1). 

(Holger Weihe/ev) 


0 " test diraktory " db 2a 


8 

"test direktor 

" ,8: 

prg 

8 

"123456789012 

3456" 

pr g 

8 

"1oader" 

,8: 

prg 

B 

"Programm" 

,8: 

prg 

8 

"basic" 

,8: 

prg 

B 

"masehprog" 

,8,1 

prg 

616 

blocks free. 




Bild 1. Beispiel eines modifizierten Directorys 


0 Prüfsumme für Katalog-Routine 

K Ausgewählte Taste bei Menü 

T, S Track und Sektor für ersten Block 

P, Q Zwischenspeicher für Track, Sektor 

Z Position des ersten Namens eines Blocks 

X$ Warten auf Tastendruck 

T$, S$ Track, Sektor des nächsten Blocks 

N$ Programmname 

D$ Modifizierter Programmname 

Tabelle 1. Variablenliste zu »Directory-Lader« 


Zeile 

Funktion 

100-260 

Katalog-Routine 

270-450 

Titelbild 

470-500 

Auswertung der Eingabe 

510-640 

Anzeigen des Direktories 

650-990 

Einlesen des Blocks 

Aufbau des Untermenüs 

Auswertung der Eingabe 

1000-1140 

Schreiben des Zusatzes 

NJTMfe»' 

1150-1280 

",8:“ bei Basic-Programm 

Schreiben des Zusatzes 
"8,1“ bei Maschinen-Programmen 

1290-1390 

Keine Änderung des Programmnamens 

1400-1500 

Löschen des Zusatzes 

1510-1610 

Rückschreiben des eingelesenen Blocks 

1620-1740 

Auswahl und Ende des Programmes 

Tabelle 2. 

Die wichtigsten Routinen 


10 REM *******###*****■»*****#*###•* <119> 

20 REM *» DIREKTORY LOADER <104> 

30 REM ** <079> 

40 REM ** BY HOLGER WEIHE <031> 

50 REM ** AM SILBERBERG 1 <043> 

60 REM ** 3344 BOERSSUM <050> 

70 REM ** <119> 

80 REM ** TEL. 05334/6589 <165> 

90 REM ** <139> 

100 REM **#***###****#*****#*»#*»** <209> 

110 REM t = PFEIL NACH OBEN <228> 

120 REM @ = KLAMMERAFFE <068> 

130 REM *************************** <239> 

140 REM ** DIREKTORY ROUTINE <217> 

150 REM »#****»#*»****»**#*#»****#* <003> 

160 REM <222> 

170 REM <232> 

180 DATA 169,36,133,251,169,251,133,187,16 

9,0,133,188,169,1,133,183,169,B <195> 

190 DATA 133,186,169,96,133,185,32,213,243 

,165,186,32,180,255,165,185,32,150 <216> 

200 DATA 255,169,0,133,144,160,3,132,251,3 

2,165,255,133,252,164,144,208,47 <072> 

210 DATA 32,165,255,164,144,208,40,164,251 
. ,136,20B,233,166,252,32,205,189 <029> 

220 DATA 169,32,32,210,255,32,165,255,166, 

144,208,18,170,240,6,32,210,255 <200> 

230 DATA 76,76,192,169,13,32,210,255,160,2 

,208,198,32,66,246,96,234 <032> 

240 FOR 1=49152 TO 49152+105:READ D:POKE I 

,D:0=D+D:NEXT <000> 

250 IF 0015577 THEN POKE 199,1: PRINT" <2SP 

ACEJFEHLER IN DATASC2SPACE>":STOP <119> 
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260 

REM 

<06B> 

270 

REM 

<07B> 

280 

REM **************************** 

<017> 

290 

REM *» TITEL 

<056> 

300 

REM **************************** 

<037> 

310 

REM 

< 118> 

320 

REM 

<128> 

330 

PQKE 53280,0:POKE 53281,0:PRINT CHR*<1 



52) 

<013> 

340 

350 

PRINT CHR*<14):PRINT CHR*(147> 

<010> 

□ 00 00" 

<225> 

360 

PRINT“C5SPACE >T<27SPACE1T" 

< 154> 

370 

PRINT" C5SPACE>7<5SPACE>.giREKT0RY AOADE 



RC6SPACE>f" 

<072> 

380 

PRINT" C5SPACE<27SPACE>T" 

< 1 74> 

390 

PR I NT " <5SPACE > WiriAfuVLAjWilTjWuWLTlTÜWJ 



tromru" 

<027> 

400 

PRINT 

<248> 

410 

PRINT" 

<019> 

420 

PRINT“<5SPACE>";CHR*<18);" SITTE AUSWA 



EHLEN ";CHR*<146):PRINT:PRINT 

<060> 

430 

PRINT“<8SPACE >" ; CHR$(18);"1";CHR*(146) 



;"<3SPACE>SIREKT0RY ANZEIGEN":PRINT 

<066> 

440 

PRINT"T8SPACE >";CHR*(18);"2";CHR*<146) 



;" {3SPACEJSIREKT0RY BEARBEITEN":PRINT 

<172> 

450 

PRINT"<BSPACE>";CHR*<18>;"3";CHR*(146) 



;"<3SPACE >SUIT":PRINT 

<136> 

470 

GET X*:IF X*="" THEN 470 

<190> 

480 

K=VAL(X*):IF K< 1 OR K>3 THEN 470 

<083> 

490 

ON K GOTO 510,660,1740 

< 030 > 

500 

GOTO 330 

<238> 

510 

REM 

<062> 

520 

REM 

<074> 

530 

REM ******************************* 

< 160> 

540 

REM ** DIREKTORY ANZEIGEN 

<033> 

550 

REM ******************************* 

< 180> 

560 

REM 

< 114> 

570 

REM 

<124> 

580 

PRINT CHRS(147):PRINT:PRINT:POKE 199,1 
SPRINT" SITTE SISK EINLEGEN UND TASTE 



DRUECKEN “ 

<011> 

590 

GET X*:IF XS="" THEN 590 

<217> 

600 

PRINT CHR*(147) :SYS 49152 

<039> 

610 

PRINT SPRINT:POKE 199,1:PRINT" JASTE DR 



UECKEN " 

<015> 

620 

GET X*:IF X*="" THEN 620 

< 085 > 

630 

GOTO 330 

< 114 > 

640 

REM 

<194> 

650 

REM 

<204> 

660 

REM *************************** 

<005> 

670 

REM *** KOMMA ACHTER 

< 205> 

680 

REM *************************** 

< 025 > 

690 

REM 

<244> 

700 

REM 

<254> 

710 

T=18:S=1:Z=5 

< 160 > 

720 

OPEN 1,8,15 

<124> 

730 

OPEN 2,8,2,"#“ 

<231 > 

740 

PRINTttl,“U1";2;0;T;S 

<110> 

750 

GET#2,T*,S* 

< 194> 

760 

P—T:Q=S 

<094> 

770 

IF T*="" THEN T=0:S=255:GOTO 800 

<221 > 

7B0 

T=ASC< T$) :S=ASC(S* >: 

<003> 

790 

PRINT#1,"B—P";2;1 

<029> 

800 

PRINTttl,"B—P";2;Z: 

<091 > 

810 

FOR 1=1 TO 16 

<200> 

820 

GET#2,N* 

<038> 

830 

D*=D*+N* 

<029> 

840 

NEXT I 

< 162> 

850 

PRINTttl,"B—P";2;Z 

< 126> 

B60 

IF D*="" THEN 1510 

<076> 

870 

PRINT CHR*(147):PRINT:PRINT:PRINT"C3SP 



ACE>HEXT SIREKTORY SLOCK s" 

<204> 

880 

PRINT:PRINT"<3SPACE>JRACK :";T;" SEKTO 



R :";S 

<228> 

890 

PRINT:PRINT:PRINT:PRINT:PRINT"<3SPACE} 



.PROGRAMM :";D* 

<217> 

900 

PRINTsPRINT 

<090> 

915 

PRINT"<3SPACE}";CHR*(1B>;"S" ;CHR*(146) 

;"ASIC ODER ";CHR*(18);"fl";CHR*(146);" 



ASCHINENPROGRAMM" 

<021 > 

920 

PRINT 

< 004 > 

930 

PRINT:PRINT:PRINT:PRINT:POKE 199,1:PRI 
NT"I4SPACEX t> HEITER<3SPACE><@> iOESC 



HEN<6SPACE>" 

<020> 


940 GET XS:IF X*="" THEN 940 

< 121 > 

950 IF X*="B“THEN 1070 

<028> 

960 IF X*="M"THEN 1160 

<163> 

970 IF X*="t"THEN 1300 

<230> 

980 IF X*="@" THEN 1420 

<009> 

990 GOTO 940 

<028> 

1000 

REM 

<044> 

1010 

REM 

<054> 

1020 

REM ************************** 

<042> 

1030 

REM ** BAS ICPROGRAMM 

<025> 

1040 

REM ************************** 

<064> 

1050 

REM 

<096> 

1060 

REM 

<106> 

1070 

D*=LEFT*(D*,12) 

<059> 

1080 

NE*=D*+CHR*(160)+",8:“ 

<021 > 

1100 

PRINT#2,NE* 

<053> 

1110 

NE$=““:D*="":Z=Z+32 

< 19B> 

1120 

IF Z>256 THEN Z=5:G0T0 1510 

<074> 

1130 

GOTO 800 

<098> 

1140 

REM 

<186> 

1150 

REM 

< 196> 

1160 

REM ************************** 

< 184> 

1170 

REM ** MASCHPROGRAMM 

<010> 

11B0 

REM #*******»**»***#«»#**»»*** 

<204> 

1190 

REM 

<236> 

1200 

REM 

<246> 

1210 

D*=LEFT*(D*,ll) 

< 191 > 

1220 

NE$=D$+CHR$(160)+",8,1" 

<102> 

1240 

PRINT#2,NE* 

<193> 

1250 

NE*="":D*="":Z=Z+32 

<0B2> 

1260 

IF Z>256 THEN Z=5:GOTO 1510 

<214> 

1270 

GOTO 800 

<23B> 

1280 

REM 

<072> 

1290 

REM 

<0B2> 

1300 

REM **************************** 

<021 > 

1310 

REM ** KEINE AENDERUNG 

< 178> 

1320 

REM **************************** 

<041 > 

1330 

REM 

<122> 

1340 

REM 

< 132> 

1350 

PRINT#2,D*:D*="" 

< 060 > 

1360 

Z=Z+32 

< 055> 

137C F Z>256 THEN Z=5:G0T0 1510 

<070> 

1380 

GOTO 800 

<094> 

1390 

REM 

< 1B2> 

1400 

REM 

<192> 

1410 

REM »*****«*■■«•****»*********»**•»» 

< 131 > 

1420 

REM ** LOESCHEN DES ANHANGS 

<247> 

1430 

REM **************************** 

< 151 > 

1440 

REM 

<232> 

1450 

REM 

<242> 

1460 

D*=LEFT* < D*,12)+CHR*(160)+CHR*(160)+C 



HR*(160)+CHR*(160) 

<094> 

1470 

PRINT#2,D*:D*="" 

< 180> 

1480 

Z=Z+32 

< 175> 

1490 

IF Z>256 THEN Z=5:G0T0 1510 

<190> 

1500 

GOTO 800 

<214> 

1510 

REM 

<046> 

1520 

REM 

<056> 

1530 

REM ***»****»»*»*»«•**«»*******»* 

<251 > 

1540 

REM ** RUECKSCHREI BEN 

< 138> 

1550 

REM **************************** 

<017> 

1560 

REM 

<098> 

1570 

REM 

< 108 > 

1580 

IF T=0 AND S=255 THEN PRINTttl,"U2";2; 



0;P;Q:GOTO 1690 

<248> 

1590 

PRINTttl,"U2";2;0;P,Q 

< 191 > 

1600 

P=T:0=S:CLOSE 2:CL0SE 1:GOTO 720 

< 149> 

1610 

REM 

< 148 > 

1620 

REM 

<1587 

1630 

REM 

<168> 

1640 

REM **************************** 

< 107> 

1650 

REM ** ENDE 

<081 > 

1660 

REM **************************** 

<127> 

1670 

REM 

<20B> 

1680 

REM 

<218> 

1690 

PRINT:PRINT:POKE 199,1 SPRINT"I11SPACE 



>XASTE SRUECKEN(10SPACE>" 

<087> 

1720 

GET X*:IF X*="" THEN 1720 

< 123> 

1730 

CLOSE 2:CLOSE 1:GOTO 330 

<061 > 

1740 

SYS 64738 

<020> 

t) 64 

"er 


Listing »Directory-Lader«. 


Bitte beachten Sie die Eingabehinweise auf Seite 6. 
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Disk-Füller 

Ab und zu passiert es, daß auf einer 
Diskette nur ein paar Blöcke fehlen. 
Mit dem Disk-Füller können in Notfäl¬ 
len bis zu 17 zusätzliche Blöcke auf der 
Diskette genutzt werden. 

Das Problem ist wohl jedem bekannt, der eine gut sortierte 
Programmsammlung hat: alle thematisch gleichen Programme 
bis auf eines passen auf eine Diskettenseite. Und gerade die¬ 
ses letzte Programm benötigt nur einige wenige Blöcke. Aber 
hier kann in Notfällen Abhilfe geschaffen werden. Auf der Spur 
18, auf der sich unter anderem das Directory befindet, sind 
meist noch ein paar Blöcke frei, die das DOS der 1541 aber 
nicht zur Verfügung stellt. Mit dem Programm Disk-Füller kön¬ 
nen diese freien Blöcke ausgenutzt werden. Zu diesem Zweck 
werden Blöcke von schon auf der Diskette befindlichen Pro¬ 
grammen auf die freien Blöcke der Spur 18 umkopiert und die 
Blockzeiger angepaßt. Die ursprünglichen Programmblöcke 
stehen dann zur freien Verfügung. 

Das Programm ist weitgehend selbsterklärend, hier aber 
einige wichtige Hinweise: Nach dem Laden darf das Programm 
erst mit »RUN« gestartet werden, wenn die zu behandelnde 
Diskette im Laufwerk liegt. Außerdem dürfen nur Disketten be¬ 
handelt werden, deren BAM einwandfrei in Ordnung ist. Im 
Zweifelsfalle sollte vorher ein Validate mit »OPEN 15,8,15,’V'« 
durchgeführt werden. 

Hier ist die genaue Funktionsweise des Programms be¬ 
schrieben: 

Nach einer kurzen Erläuterung für den Benutzer werden in 
den Zeilen 1050 und 1060(Listing) zwei Kanäle zum Laufwerk 
geöffnet. Gleichzeitig wird die eingelegte Diskette initialisiert. 
In Zeile 2000 werden drei Variablenfelder dimensioniert. Sie 
dienen zum Ablegen der Zeiger auf den jeweils nächsten Di¬ 
rectoryblock sowie der Anzahl der Einträge in diesem Block. 
Mit Zeile 2010 beginnt dann eine Schleife, die alle Directory- 
Blöcke verfolgt, ihre Lage auf der Diskette in den dimensionier¬ 
ten Feldern speichert und ihre Anzahl in der Variablen B fest¬ 
hält. Ab Zeile 2500 wird die Anzahl der freien Einträge im letz¬ 
ten Directory-Block bestimmt. Dazu wird jeweils das Filetyp- 
Byte abgefragt. Hat es den Wert Null, ist dieser Eintrag noch 
frei. Sollte der Benutzer die Frage, ob der angezeigte Platz ge¬ 
nügt, negativ beantworten, wird ein Block für weitere acht Ein¬ 
träge freigehalten. 

Als nächstes wird überprüft, welche Blöcke der Spur 18 
noch frei sind. Dazu werden die entsprechenden Bytes der 
BAM in den Computerspeicher geholt und analysiert (Zeile 
3120 bis 3230). 

In Zeile 4000 beginnt das Verschieben schon belegter 
Blöcke in die Spur 18. Dazu werden in einer großen Schleife 
(bis Zeile 4680) alle Directory-Einträge abgearbeitet. Dies ge¬ 
schieht folgendermaßen: Der Zeiger auf den ersten Block des 
ersten Eintrags wird in den Variablen AS und AT zwischenge¬ 
speichert, der zugehörige Block eingelesen und der Zeiger 
auf den Förtsetzungsblock ebenfalls gespeichert. Dann wird 
ein freier Block der Spur 18 gesucht und der alte Zeiger auf 
diesen umgelenkt. Der Computer gibt nun eine Protokollzeile 
aus. Dieser Block wird nun als belegt und der alte als frei ge¬ 
kennzeichnet. Als letztes wird endlich der Inhalt des zu ver¬ 
schiebenden Blocks auf den Block der Spur 18 geschrieben. 
Sollte nach dem ersten Eintrag immer noch Platz auf der Spur 
18 sein, fährt das Programm mit dem zweiten Eintrag fort, bis 
die Spur 18 komplett belegt ist. 

(U. Gerlach/bs) 


100 

REM 


************************** 


<140> 

110 

REM 


* 


* 


< 159> 

120 

REM 


* 


* 


< 169> 

130 

REM 


* 

DISK FUELLER 

* 


< 115> 

140 

REM 


* 


* 


< 189> 

150 

REM 


* 


* 


< 199> 

160 

REM 


* 


* 


<209> 

170 

REM 


* 

VON UWE GERLACH 

* 


<039> 

180 

REM 


* 


* 


<229> 

190 

REM 


* 

BRUEHLSTR. 23 

* 


< 186> 

200 

REM 


* 


* 


<249> 

210 

REM 


* 


* 


<003> 

220 

REM 


* 

6440 BEBRA 1 

* 


< 164 > 

230 

REM 


* 


* 


<023> 

240 

REM 


* 


* 


<033> 

250 

REM 


* 


* 


<043> 

260 

REM 


* 


* 


<055> 

270 

REM 


* 

IM APRIL 1985 

* 


<23B> 

280 

REM 


* 


* 


<075> 

290 

REM 


* 


* 


<085 > 

300 

REM 


************************** 


<086> 

400 

: 






< 122 > 

500 

: 






< 222 > 

1000 POKE 

53280,0: POKE 53281,0: 

REM 

FARBE 

<068> 

1010 PRINT CHRS(14);"<CLR,GREY 2 

,2SPACE>££ 



1541 <4SPACE>S I S K<3SPACE>£. U 

E L L 



E 

R' 

':PRINT:PRINT:PRINT 



<073> 

1015 PRINT"DIESES PROGRAMM WURDE 

GESCHRIEB 



EN 

VON:' 

':PRINT:PRINT 



<051 > 


1020 PRINT, "O.IS. BLUE, 2SPACE5ÜWE SERLACH": 
PRINT,"I2SPACEJÜRUEHLSTR. 23": PRINT 
: PRINT,"<2SPACE>6440 2EBRA 1CGREY 2> 

1025 PRINT:PRINT:PRINTSCHAFFT AUF VOLL 
EN 2ISKETTEN NOCH" 

1030 PRINT"ETWAS £LATZ, INDEM ES DIE EIGEN 
TLICH" 

1035 PRINT"FUER DAS 21RECTORY VORGESEHENE 
SPUR 18” 

PRINT"BELEGT-":PRINT:PRINT 


1040 

1045 

1050 

1060 

1090 

IIP« 

1110 

1120 

1130 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2100 

2110 

2120 

2130 

2140 

2150 

2155 

2160 

2190 

2400 

2500 

2510 

2520 

2530 

2540 

2590 

2600 

2610 

2700 

2750 

2760 

2770 

2790 

3000 

3010 

3020 

3030 

3050 

3060 

3100 


OPEN 1,8,15,"I": REM FUER BEFEHLE 
OPEN 2,8,2,"#" : REM PUFFERKANAL 

*EM ***************************** 

REM DIRECTORYLAENGE ERMITTELN 
REM ***************************** 

DIM TC25): DIM S(25>: DIM E<25) 

PRINT# 1, "Ul:"2;0;18;0: REM BAM 
GET# 2,TS,SS: REM ZEIGER AUF DIR. 

T(0)=ASC < TS+CHRS C 0)): REM TRACK 
S(0)=ASC(SS+CHRS(0)): REM SECTOR 
T=T<0>: REM TRACK DIR. ANFANG 
S=S< 0 > : REM SECTOR DIR. ANFANG 
B=l: REM BLOCKZAEHLER 
PRINT# 1, “Ul:"2;0;T;S 
GET# 2,TS,SS: REM ZEIGER 
T=ASC(TS+CHRS(0 >) 

S=ASC(SS+CHRS<0>> 

IF T=0 OR T>35 DR S>20 OR B=25 THEN 2 
400: REM LETZTER DIRECTORY-BLOCK 
T(B)=T: S<B)=S: REM ZEIGER MERKEN 
E(B—1)= 8 : REM EINTRAEGE IM BLOCK 
B=B+1: REM ZAEHLER ERHOEHEN 
GOTO 2100 : REM NAECHSTER BLOCK 
M=B: REM DIR. BLOCKZAHL 
F=0: REM ZAEHLER FREIE EINTRAEGE 
FOR 1=2 TO 226 STEP 32 
: PRINT# 1, "B-P:“2,1: REM ZEIGER 
: BET# 2,WS: REM FILETYP 
: IF WS="” THEN F=F+1: REM FREI 
NEXT I: REM ALLE EINTR. IM BLOCK 
E(B-1)=8-F: REM EINTRAEGE/BLOCK 
IF F =8 AND M=1 THEN 7800: REM LEER 
PRINT "SENUEGEN";F;"FREIE filRECTORY-£ 
LAETZE ? "5 

GET AS: IF AS="" THEN 2750 
IF AS< >"N" THEN AS="J" 

PRINT AS: PRINT: PRINT: PRINT 

REM ***************************** 

REM LEERE DIR. BLOECKE FESTST. 

REM ***************************** 

PRINT# 1, "Ul:"2;0;18;0: REM BAM 
PRINT# 1, "B-P:"2,73: REM SPUR 18 
B=0 : REM BLOCKZAEHLER 


<0B0> 

< 012 > 

<149> 

<209> 
<248> 
<005> 
<004> 
<091 > 
<050> 
<096> 
<193> 
<116> 
<090> 
<001 > 
<085> 
< 111 > 
<218> 
< 222 > 
<167> 
< 220 > 
< 212 > 
<176> 
<065> 
<231 > 
<172> 

<043> 

<174> 

<111> 

<082> 

< 174> 
<22B> 
<071 > 
<227> 
<006 > 

< 176> 
<091 > 
<090> 
<232> 
<017> 

<031 > 
<230> 
<234> 
<213> 
<226> 
<218> 
<16S> 
<238> 
< 212 > 

< 109> 
<008> 
< 210 > 


Listing »Disk Füller«. Bitte beachten Sie die Eingabehin¬ 
weise auf Seite 6. 
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3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3195 

3200 

3085 

3220 

3230 

3310 

3390 

3990 

4000 

4010 

4020 

4021 
4025 
4027 
4030 
4035 
4040 
4050 
4060 
4100 
4150 
4160 
4170 
41B0 

4190 

4191 

4192 

4200 

4210 

4212 

4215 

4220 

4230 

4300 

4500 

4510 

4515 

4520 


4525 

4530 

4550 

4560 

4570 

4580 

4650 

4655 

4660 

4670 

46B0 

6990 

7000 

7010 

7020 

7030 

7050 


L=19: REM ZAHL LEERE DIR-BLOECKE 
DXM Z(25): REM ZUSTAND DER BLOCKS 
FOR 1=1 TO 3: REM BYTES SPUR 18 
: BET# 2, W*: REM BELEBUNBSCODE 
5 W=ASC(W*+CHR*<0)) 
s FOR J=1 TO 8 : REM DUALSTELLEN 
: W=W/2 

s IF W=INT(W) THEN Z<B )=1 
: XF Z(B)=0 AND A*="N" THEN A*="": 

CB)=1s REM EINEN BLOCK FREIHALTEN 
I IF ZCB)=1 AND B<19 THEN L=L-1 
s B=B+1 
s W=INT <W) 

: NEXT J 
NEXT I 

IF L<1 THEN 8000 

PRINT: PRINT: PRINT "IS WERDEN NUN" 
5" 3LOECKE FREIBESTELLT !": PRINT 

REM **»•»**•**#***»■*»**»**#******** 
REM FUELLEN DER DIR.- BLOECKE 
REM ***************************** 


!L 


B=0: REM BLOCKZAEHLER, SIEHE OBEN 
FOR E=0 TO E CB) — 1: REM EINTR/BLOCK 
AT=T CB): REM ALTER DIR-TRACK 
AS=S CB): NS=AS: REM ALTER SECTOR 
IF AT=0 AND AS=0 THEN 7050 
1=0 

Z=E*32+3: REM STELLE DES ZEIGERS 
R=0: REM MARKE DIR.-BLOCK AENDERN 
PRINT# 1, "Ul:"2;0;AT;AS: REM ALT 
PRINT# 1, "B-P:"2,Z: REM ZEIBER 
BET# 2, T*,S*: REM ZEIGER FORTS. 
T=ASCCTS+CHR*(0>) 

S=ASC CS*+CHR*C0)) 

IF T=1B THEN 4670: REM BEARBEITET 
IF T=0 OR T>35 OR S>20 THEN Z=l: GOTO 
4520: REM FILEENDE 
FOR 1=0 TO 18 STEP 10: REM SUCHE NAC 
H FREIEM SECTOR IM SECTORABSTAND 
: IF ZCI)=0 THEN 4500: REM LEER 
: IF 1=9 THEN GOTO 4230 
: IF I >8 THEN 1=1-9: GOTO 4210 
NEXT I 

Z=—1: REM MARKE: SPUR 18 VOLL 
GOTO 4520: REM RUECK OHNE AENDER. 
PRINT# 1, "B-P:"2,Z: REM ZEIGER 
PRINT# 2, CHR*(18);CHR*(I>;: REM ZE 
IGER VERBIEGEN 

IF AT=18 AND AS=NS THEN R=l: REM IN 
DEN BLOCK, AUS DEM GELESEN WURDE 
PRINT "I 6 SPACEJS.OCK";RIGHT* C"C2SPACE 
>"+STR*(AT> ,3) 5 " , "RIGHT* C " <2SPACE>"+S 
TR* CAS),3); 

IF R=1 THEN PRINT"C2SPACEJZEIGER";E+l 
; "GEAENDERT": GOTO 4570 
PRINT "{2SPACEJ—>C2SPACE>18,";RIGHT* 
C"C2SPACE>"+STR* CNS),3) 

PRINT# 1, "B—A:“0,18,NS:REM IN BAM 
PRINT# 1, 11 B-F: " 0, AT , AS: REM ALTEN B 
LOCK FREIGEBEN 

Z CI)=1: REM BLOCK IN LISTE BELEGEN 
PRINT# 1, "U2:"2;0;18;NS:REM RUEC 
AT=T: AS=S: NS=I: REM NORM. BLOCK 
IF Z=-l THEN GOTO 9000: REM OK 
IF ZOl THEN Z=0: GOTO 4100 
NEXT E: REM NEUER DIR.-EINTRAG 
B=B+1: GOTO 4027: REM WEITER MIT NAE 
CHSTEM DIRECTORYBLOCK 


<082> 
<004> 

< 154> 
<176> 
< 011 > 
<207> 

< 181 > 
<203> 

<092> 
<093> 
<071> 

< 134> 
<076> 
< 010 > 
<076> 

<233> 

< 156> 
< 202 > 
<251> 
< 222 > 

< 187 > 

< 163> 
<038> 
<099> 
<166> 
<004> 
<173> 
<170> 

< 117> 
< 111 > 

< 151 > 

< 185> 
<003> 
< 200 > 
<245> 

< 211 > 

<037> 

< 196> 
<056> 
<096> 
<240> 
<231 > 
<214> 
<237> 


< 111 > 


<1B1> 


REM ***«■*****#*#»*»****#**##•**•*** 

REM FEHLERMELDUNGEN 

REM ***************************** 


<252> 

<023> 

< 12B> 
<251 > 

<209> 
<254> 
<235> 
<035> 
<109> 
<234 > 
< 120 > 

<0B7> 

<10B> 

<154> 

<130> 

<174> 

< 14B> 


PRINT: PRINT "£S WAREN NICHT GENUG BE 
LEGTE BLOCKS DA." 

7060 PRINT " SPUR 18 IST IMMERNOCH TEILWEI 
SE FREI!" 

7090 GOTO 9000 

7800 PRINT:PRINT:PRINT"flIE filSKETTE IST LE 
ER! " 

7810 GOTO 9000 

8000 PRINT "JUT MIR LEID, DA IST NICHTS ZU 
MACHEN." 

8010 PRINT "SIE GESAMTE SPUR 18 IST VOLL B 
ELEGT !" 

9000 PRINT 

9010 CLOSE 1: CLOSE 2: END 

Listing »Disk Füller« (Schluß) 


<036> 

<099> 

<236> 

< 146> 

< 194> 

<162> 

<160> 
< 212 > 
<099 > 


Schreibschutz 
per Software 

Eleganter als das Hantieren mit Klebe¬ 
streifen ist ein Disketten-Schreib- 
schutz per Software. Hier ist ein Pro¬ 
gramm, das einen solchen Schreib¬ 
schutz nicht nur anbringen, sondern 
ihn auch wieder entfernen kann. 

Die Funktion dieses Programms basiert darauf, das Förmat- 
kennzeichen (»A«) auf der Diskette zu ändern (hier in »X«). Ver¬ 
sucht man nun, Daten auf die Diskette zu schreiben, so rea¬ 
giert das Floppy-Laufwerk mit der Fehlermeldung »CBM DOS 
V2.6 1541«. Das Lesen ist jedoch weiterhin problemlos mög¬ 
lich. Damit erspart man sich die zuweilen umständliche Ver¬ 
wendung von Schreibschutz-Aufklebern auf der Diskette. Au¬ 
ßerdem ist dieser softwaremäßig realisierte Schreibschutz um 
einiges sicherer, denn er kann nicht durch Leichtsinn oder Ver¬ 
sehen entfernt werden. 

Eine Schwierigkeit ergibt sich aber, wenn das neue Förmat- 
kennzeichen wieder in »A« geändert werden soll, um zum Bei¬ 
spiel noch ein Programm auf der Diskette zu speichern. Da ja 
jegliches Schreiben unmöglich ist, hat man selbst mit den 
Direktzugriffs-Befehlen keine Möglichkeit mehr, wieder ein »A« 
auf die Diskette zu bringen. 


1 Rem **,.***************************** 

2 rem.** ** 

3 REM ** SCHREIBSCHUTZ ** 

4 REM ** ** 

5 REM ** * 85 BY ** 

6 REM '** MANFRED LINS ** 

7 REM «* REITACKER 1 ** 

8 REM *» 6492 SINNTAL-ZUENTERSBACH ** 

9 REM ******************************** 

10 PRINT CHR*(147):REM CLEAR/HOME 
20 X=7:Y=2:GOSUB 510 

30 PRINT"D I S K €2SPAGE>—-C2SPACEJS C H U T 
Z" 

40 X=2:Y=6:GOSUB 510 
50 PRINT"ALTES FORMATKENNZEICHEN 
60 OPEN 1,8,15,”I":OPEN 2,8,2,"#" 

70 PRINTttl,"Ul 2 0 18 0" 

80 PRINTtfl , "B-P 2 2" 

90 GET#2,AF*: REM ALTES FORMATKENNZ. 

100 PRINT AF* 

110 X=2:Y=9:GOSUB 510 
120 PRINT"WIRD GEAENDERT 
130 IF AF*="A"THEN PRINT 
140 PRINT"A" 

150 X=20:Y=9:GOSUB 510 
160 INPUT NF* 

170 PRINT#1,"M-W"CHR*(1)CHR*(1)CHR*(1)CHR* 

(65) 

180 PRINT#1,"B-P 2 2" 

190 PRINT#2,NF*:REM NEUES FORMATKENNZ. 

200 PRINT#1,"U2 2 0 18 0" 

210 CLOSE 2:CLOSE 1 

220 IF NF*="A"THEN D*="<RVS0N,2SPACE>KEIN 
SCHREIBSCHUTZ !C2SPACE>":GOTO 240 
230 D*="<RVSON,2SPACEISCHREIBSCHUTZ AKTIVI 
ERT !<2SPACE>" 

240 X=6:Y=14:GOSUB 510 
250 PRINT D* 

260 END 

500 REM ROUTINE ZUM CURSORSETZEN 
510 POKE 211,X:POKE 214,Y:SYS 58640:RETURN <011> 
520 REM UNTERPROGRAMMENDE <169> 

Listing »Schreibschutz«. Bitte beachten Sie die Eingabe¬ 
hinweise auf Seite 6. 


INI3SPACE >"; 
*X":GOTO 150 


<051 > 
< 002 > 
<255> 
<004> 
< 128> 
<031 > 
<221 > 

< 140> 
<059> 

< 146> 
<017> 

<035> 
<217> 
<075> 
<051 > 
<130> 
<244> 

< 169> 

< 18B> 
<034> 
< 012 > 
<096> 
<091 > 
<236> 
<016> 

<032> 

<088> 

< 161 > 

< 133> 
<232> 

< 001 > 

< 022 > 

< 177> 

< 196> 
<008> 
<250> 
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Hier liegt nun die eigentliche Neuheit dieses Programms. Mit 
einem Memory-Write-Befehl (Listing) wird in die Speicherstel¬ 
le 257 ($0101) der Floppy der ASCII-Code von »A« (65) ge¬ 
schrieben. In dieser Speicherstelle wird bei jedem Initialisieren 
einer Diskette deren Formatkennzeichen im ASCII-Förmat ab¬ 
gelegt. Ist nun dieser Inhalt gleich 65, so schreibt die Floppy 
wieder ohne Probleme auf die Diskette, und genau dies wird 
in dem Programm ausgenutzt. 

Nun einige Bemerkungen zur Bedienung des Programms: 
Nach dem Starten mit »RUN« wird das Formatkennzeichen der 
Diskette eingelesen und ausgedruckt. Daraufhin gibt man das 
Format-Zeichen ein, das die Diskette erhalten soll. Drückt man 
nur RETURN, so wird das vorgegebene Zeichen übernommen 
und es kommt immer zu einer Änderung des Förmatkennzei- 
chens. Zum Schluß wird dann der aktuelle Zustand der Disket¬ 
te angezeigt. 

Achtung! Unmittelbar nach dem Programmlauf ist der 
Schreibschutz nicht aktiv, da in der Speicherstelle 257 noch 
immer 65 steht. Erst nach dem Initialisieren einer geschützten 
Diskette ist dieser Schutz auch wirksam. Auch gegen verse¬ 
hentliches Formatieren, bei dem ja alle Programme gelöscht 
werden, schützt dieses Programm nicht, da bei diesem Befehl 
logischerweise kein Formatkennzeichen gelesen wird. 

In allen anderen Fällen ist der Schutz jedoch voll wirksam und 
macht Schreibschutz-Etiketten überflüssig. 

(Manfred Lins/ev) 


Disk-Tester 

Mit diesem Programm lassen sich Dis¬ 
ketten schneller, komfortabler und 
schonender auf defekte Sektoren un¬ 
tersuchen, als das mit dem entspre¬ 
chenden Programm auf der Test/De¬ 
modiskette der Fall ist. 

Das Programm ist insbesondere bei Verwendung älterer Dis¬ 
ketten oder bei Nutzung der Disketten-Rückseite zu empfeh¬ 
len. Es überprüft in knapp 10 Minuten die gesamte Diskette auf 
schadhafte Stellen und markiert die eventuell gefundenen un¬ 
brauchbaren Sektoren als belegt, so daß sie von der 1541 
nicht mehr zur Datenspeicherung verwendet werden. So ist es 
möglich, auch teilweise beschädigte Disketten noch zur Da¬ 
tenspeicherung heranzuziehen, ohne daß es zu WRITE- oder 
READ-ERRORS kommt. 

Programmbeschreibung: 

Nach dem Starten des Programms (siehe Listing) muß man 
entscheiden, ob man nur die vollen Blocks (durch Lesen) oder 
alle Blocks (durch Lesen und Beschreiben) testen will, oder ob 
man die schon bei vorherigen Tests als fehlerhaft erkannten 
Blocks nach einem VALIDATE wieder belegen will. Danach 
wird gefragt, ob der Befehl »VALIDATE« an die Floppy gesen¬ 
det werden soll. Dies ist nur bei Disketten sinnvoll, auf denen 
die Daten öfters geändert werden und die keine relativen Da¬ 
teien, ISAM-Dateien oder ähnliche, im Direktzugriff arbeitenden 
Speicherformate, enthalten. Bei Disketten mit den oben ge¬ 
nannten Dateien, von denen man nicht sicher weiß, ob die be¬ 
schriebenen Blöcke auch in der BAM (Block Availability Map, 
Sektorbelegungstabelle) als belegt gekennzeichnet sind, soll¬ 
te die Option »Leere Blocks testen« auf keinen Fall angewandt 
werden, da sonst Daten verlorengehen können. 

Es folgt nach kurzer Lese- und Decodierzeit die symbolische 
Belegung der Diskette auf dem Bildschirm, auf der die beleg¬ 


ten Sektoren als »-« und die nicht belegten als »*« gekenn¬ 
zeichnet sind. Wie kommt es dazu? Nun, jede Spur belegt in 
der BAM (Spur 18, Block 0, Positionen 4-143) 4 Byte. Zuerst 
kommt die Anzahl der freien Blöcke auf der Spur, im Programm 
bezeichnet mit FR$. Dann kommt nacheinander die Belegung 
der Sektoren 7-0,15-8 und 23-16. Ein 1-Bit kennzeichnet da¬ 
bei einen freien Block, ein O-Bit einen besetzten. Dies wird nun 
in der Routine »Analysieren der BAM« aufgelöst und in B%(T,S) 
festgehalten, wobei T die Spur und S den Sektor enthält. Die 
darauffolgende Testroutine beschränkt sich jetzt nur darauf, 
die Spuren und Sektoren einzeln durchzuzählen und in Abhän¬ 
gigkeit von B%(T,S) und der Variable TS (0, wenn alle, 1, wenn 
nur volle Blocks getestet werden sollen) entweder den Block 
zu lesen, oder ihn mit dem einmal aufgefüllten Puffer zu be¬ 
schreiben. Danach wird der Fehlerkanal auf die Fehlernummer 
abgefragt, da dies schneller geht, als immer die ganze Fehler¬ 
meldung zu holen. Tritt ein Fehler auf, so wird dieser angezeigt 
und auf dem Monitor als roter Punkt in der BAM markiert. 
Gleichzeitig wird die Variable FE erhöht. Tritt kein Fehler auf, so 
wird die Kennzeichnung für den gerade getesteten Block auf 
dem Monitor gelöscht. Sind alle Blocks getestet, werden die 
eventuell vorhandenen defekten Blocks auf der Diskette be¬ 
legt und in dem Format »Spur,chr$(13),Block,chr$(13)« in dem 
USR-File ».DISKFEHLER« gespeichert. Das erste Byte ent¬ 
spricht in diesem Fall der Anzahl aller gefundenen Fehler. 

Die Routine »Kaputte Blocks belegen« hat nun nichts weiter 
zu tun, als dieses File zu lesen und die Blocks zu belegen. 


Änderungen für andere Computer 


Für einen der »großen« CBMs muß die Zeile 135 und sämtli¬ 
che POKEs in den Zeilen 150 und 470 gelöscht werden, da 
sie ‘'eine Farbdarstellungen besitzen. Die Zeile 140 muß so 
geändert werden: 

140 Bl=32768 

Für einen VC 20 mit 40-Zeichen-Bildschirm müssen nur die 
farbgebenden POKEs in Zeile 150, die Strings in Zeile 135 
und die Variablen in Zeile 140 angepaßt werden. Für die Besit¬ 
zer eines VC 20 mit 22-Zeichen-Bildschirm sind größere Än¬ 
derungen erforderlich, da die BAM nicht angezeigt werden 
kann und sie sich somit mit einer numerischen Darstellung des 
Testablaufs zufrieden geben müssen. Es werden die freien 
und die belegten Blocks sowie der zuletzt getestete Sektor 
angezeigt. Die Zeilen 140, 470 und 635 ff. müssen vollstän¬ 
dig gelöscht werden. Folgende Zeilen müssen geändert wer¬ 
den: 

355 PRINTL$T$" BESETZTE BLOCKS:'' OS683-FR:- 
PRINTT$" FREIE BLOCKS'': "0$FR;D$D$ 

450 INPUT#15,RIFF<20GOT0480 
480 PRINTGS" T: " T;Z$"S;Z$" "U 

Zehn Minuten für das Überprüfen einer Diskette mögen 
zwar immer noch recht lang anmuten, wenn man jedoch be¬ 
denkt, wieviel Ärger (READ-ERROR, WRITE-ERROR) ein feh¬ 
lerhafter Sektor verursachen kann, dann rentiert es sich be¬ 
stimmt, diese Zeit zu investieren. (Ulrich Langler/ev) 


100 

REM*DISKTESTER 

<068> 

105 

REM*ULI LANG* 

< 153> 

110 

REM*TALSTR.10* 

<167> 

115 

REM*8609 BISCHBERG* 

<015> 

120 

REM*TEL.0951/673S9* 

< 141 > 

125 

: 

<101> 

130 

L*="<CLR >":D*="CDOWN>":U*="IUP >":Z*="< 



LEFT>":REM*LOESCHEN,CRSR DOWN,CRSR UP, 



CRSR BACK* 

<215> 


Listing »Disk-Tester«. Bitte beachten Sie die 



Eingabehinweise auf Seite 6. 
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135 

G*="(GREEN}":0*="(ORANGE}":B*="<LIG.BL 


440 

PRINT#15,"B-W:"5;0;T;S:REM*BUFFER 



UE}":T*=“(CYAN}":R*=”(LIG.RED}":REM*GR 



AUF DISK SCHREIBEN* 

< 197> 


UEN,ORANGE,HELLBLAU,TUERKIS,ROT* 

< 199> 

445 

AO=40*(20—S)+T+3:REM*ADRESSOFFSET* 

< 156> 

140 

FARBSPEICHER=55296:BILDSCHIRMSPEICHER= 


450 

INPUT#15,F:IF F<20 THEN P=32:G0T0 



1024 

<242> 


480 

<224> 

145 

DIM T7. (100) ,S7.(100) :REM*FEHLERHAFTE BL 


455 

IF F<29 THEN F*=F*(F-20):GOTO 465 

<078> 


OCKS* 

<033> 

460 

F*=" " 

<255> 

150 

PRINT L*G*D*SPC(15)"DISKTESTER"D*:POKE 


465 

PRINT R*F;F*" T:"T;Z*" S:"5;Z*" "U 



53280,0:POKE 53281,0:REM*SCWARZ* 

<079> 


* 

<224> 

155 

PRINT 0*D*"<"B*"A"0*"> ALLE C4SPACE JBLO 


470 

POKE FA+AO,10:P=81+6*BX(T,S):REM*R 



CKS TESTEN" 

<221 > 


OTES"S,H" 

< 123> 

160 

PRINT D*"<"B*"B"0*"> BELEGTE BLOCKS TE 


475 

TX(FE)=T:SX(FE)=S:FE=FE+BX(T,S> 

<040> 


STEN" 

<237> 

480 

POKE BI+AO,P 

<254> 

165 

PRINT D*"<"B*"K"0*"> KAPUTTE BLOCKS BE 


485 

NEXT S 

< 139> 


LEGEN" 

<027> 

490 

NEXT T:CLOSE 5:CL0SE 3 

< 191 > 

170 

GET A* 

<124> 

495 

IF FE=0 THEN PRINT"(6SPACE}•KEINE ZU B 


175 

IF A*="A"THEN TS=l:GOTO 210 

<250> 


ELEGENDEN FEHLER!";:GOTO 550 

<007> 

180 

IF A*="B"THEN TS=0:GOTO 210 

<096> 

500 

REM***************************** 

<002> 

185 

IF A*="K"THEN 575 

<007> 

505 

REM*BELEGEN DER KAPUTTEN BLOCKS* 

<069> 

190 

GOTO 170 

<230> 

510 

REM***************************** 

<012> 

195 

REM***************** 

<076> 

515 

PRINT L*T*" TEST ZUENDE, BELEGEN UND K 


200 

REM*DISKETTE TESTEN* 

<025> 


ENNZEICHNEN" 

<220> 

205 

REM***************** 

<0S6> 

520 

PRINT TAB(8)"DER FEHLERHAFTEN BLOCKS" 

<170> 

210 

DIM B7. (35,23) ,F* (8) s K*=“ , " : N*=CHR* (0) : 


525 

FOR 1=0 TO FE—1 

< 062> 


FR=0:FE=0:FT=0 

<085> 

530 

PRINTD15, "B—A: "0; TX. (I > ; SX. (I) : REM*IN 


215 

FOR 1=0 TO 8:READ F*(I):NEXT:REM*FEHLE 



BAM BELEGEN* 

<216> 


RMELDUNGEN* 

<102> 

535 

NEXT 

<037> 

220 

GOSUB 610:REM*AUF SPACE WARTEN* 

<179> 

540 

OPEN 3,8,3,.DISKFEHLER,U,W":PRINT#3 


225 

OPEN 15,8,15,"I" 

<024> 


,CHR*(FE-1); 

<099> 

230 

FRINT L*"VALI DATE? "B*"J/N” 

<214> 

545 

FOR 1=0 TO FE-1:PRINT#15,TX(I)CHR*<13) 


235 

GET A* 

< 1B9> 


SX(I):NEXT 

<120> 

240 

IF A*="N"THEN 255 

< 164> 

550 

CLOSE 3:CLOSE 15:END 

<029> 

245 

IF A*="J"THEN PRINT L*T*D*"VALIDATING. 


555 

: 

<023> 


..":PRINT#15,"V":GOTO 255 

<060> 

560 

REM****************************** 

< 106> 

250 

GOTO 235 

<13B> 

565 

REM*WIEDERBELEGUNG NACH VALIDATE* 

<221 > 

255 

OPEN 3,B,3,"#":IF TS THEN OPEN 5,8,5," 


570 

REM****************************** 

< 116> 


#" 

<216> 

575 

GOSUB 610 

<067> 

260 

PRINT L*T*"BAM WIRD GELESENC9SPACE> "US 

<248> 

580 

PRINT L*T*"WIEDERBELEGEN DER SCHADHAFT 


265 

PRINT#15,"Ul:"3;0;18;0:GET#3,AS,A*,A* 

<240> 


EN BLOCKS" 

<143> 

270 

IF A*< >CHR*(65)THEN PRINT D*"KEIN DOS 


585 

OPEN 15,8,15,"I":OPEN 5,8,5,".DISKFEHL 



2.6 ODER 2.5!":GOTO 550 

<096> 


ER,U,R" 

<190> 

275 

GET#3,A* 

<206> 

590 GET#“■.' i$: FE=ASC (A* > 

< 151 > 

280 

REM*********************** 

<167> 

595 

FOR 1=0 TO FE:INPUT#5,TX(I),SX(I):PRIN 


285 

REM*ANALYSIEREN DER BAM * 

< 230 > 


T R*“T: "TX. (I) , "S: "SX. (I): NEXT:CLOSE 5 

< 124> 

287 

REM*AUFGELOEST IN BX(T,S)* 

< 119> 

600 

FOR 1=0 TO FE:PRINT415,"B—A:"0;TX(I);S 


290 

REM*********************** 

< 177> 


X.(I) : NEXT: CLOSE 15: END 

<087> 

295 

FOR T=1 TO 35 

<025> 

605 

: 

<073> 

300 

REM*FREIE BLOCKS,SEKTOR 7-0,SEKTOR 1 


610 

PRINT L*TAB(9)0*"TESTDISKETTE(2SPACE>E 



5-8,SEKTOR 23-16* 

<072> 


INLEGEN":PRINT TAB(17)"<"B*"SPACE"OS"> 


305 

GET#3,FR*:FR=FR+ASC(FR*+N*> :S=0 

< 226 > 


" 

<021 > 

310 

IF FR THEN 320:REM*NICHT ALLE BLOCKS 


615 

GET A*:IF A*<>" "THEN 615 

<216> 


BELEGT* 

<058 > 

620 

RETURN 

< 170> 

315 

FOR S=0 TO 23:BX(T,S> =0:NEXT S:GOTO 


625 

5 

<093> 


345 

<091 > 

630 

REM*BAM DARSTELLEN* 

<210> 

320 

A=1:GET#3,BA*:BA=ASC(BA*+N* > 

<086} 

635 

PRINT L*; 

<240> 

325 

FOR S=S TO S+7 

< 102> 

640 

FOR S=20 TO 0 STEP—1 

<173> 

330 

BX(T,S)=(BA AND A)/A:A=A+A:FT=FT+B 


645 

PRINT 0*S;TAB(4); 

<03B> 


X(T,S) 

<015> 

650 

FOR T=1 TO 35 

< 126> 

335 

NEXT S 

<245> 

655 

IF T<18 THEN MS=20:GOTO 675 

<091 > 

340 

IF S<23 THEN 320 

<149> 

660 

IF T<25 THEN MS=18:G0T0 675 

<055> 

345 

NEXT T 

<007> 

665 

IF T<31 THEN MS=17:G0T0 675 

<075> 

350 

IF FROFT THEN PRINT L*R*TAB (14) “ ! BAM- 


670 

MS=16 

<079> 


FEHLER!":GOTO 550 

< 183> 

675 

IF S>MS THEN 690 

<066> 

355 

GOSUB 635 

<037> 

680 

IF BX(T,S)=0 THEN PRINT B*“-";:GOT 


360 

REM*********************** 

<247> 


0 690 

< 183> 

365 

REM*START DER TESTROUTINE* 

<078> 

685 

PRINT G*”*"; 

<173> 

370 

REM*********************** 

<001> 

690 

NEXT T:PRINT 

<056> 

375 

IF TS=0 THEN FR=683-FR:REM*VOLLE BLOCK 


695 

NEXT S:PRINT TAB(4); 

<214> 


S* 

<22B> 

700 

FOR T=1 TO 35:PRINT RIGHT*(STR*(T),1); 


380 

IF TS=0 THEN 400 

<012> 


: NEXT 

<07B> 

3B5 

REM*170=X10101010 , 85=X01010101* 

<012> 

705 

PRINT:RETURN 

<22B> 

390 

PRINT415,“B-P:"5;1:FOR 1=1 TO 128:PRIN 


710 

REM*FEHLERMELDUNGEN* 

<008> 


T#5,CHR*(170)CHR*(85);:NEXT 

<148> 

715 

DATA"KEIN HEADERI6SPACE}","KEIN SYNC C 


395 

REM*PUFFER BRAUCHT NUR EINMAL GEFUELLT 



HAR (3SPACE}","KEIN BLOCK VORH. " 

< 119> 


ZU WERDEN* 

<074> 

720 

DATA"PRUEFSUMME DATEN ","BITMUSTERFEHL 


400 

FOR T=1 TO 35:REM*SPURZAEHLER* 

< 138> 


ER C2SPACE >","SCHREIBFEHLER(4SPACE>" 

<254> 

405 

IF T<18 THEN MS=20:GOTO 425 

<089> 

725 

DATA“SCHREIBSCHUTZ C4SPACE>","PRUEFSUMM 


410 

IF T<25 THEN MS=18:G0T0 425 

< 053 > 


E HEADER","BLOCK ZU LANG(4SPACE}" 

<253> 

415 

IF T<31 THEN MS=17:G0T0 425 

<073> 




420 

MS=16 

<083> 




425 

FOR S=0 TO MS:REM*BLOCKZAEHLER* 

< 161 > 




430 

ON TS*2+BX(T,S)GOTO 485,435,440 

<140} 




435 

PRINT415,"Ul:"3;0;T;S:GOTO 445:REM 






•BLOCK LESEN* 

<031 > 

Listing »Disk-Tester« (Schluß) 
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Betriebs¬ 
system selbst 
gemacht 

Ein eigenes Betriebssystem zu schrei¬ 
ben, ist nicht jedermanns Sache. Aber 
warum soll man nicht das vorhandene 
für sich abändern? 

Wie schön wäre es doch, sein eigenes, kleines Betriebssy¬ 
stem für den C 64 zu schreiben. Doch gewiß ist das nicht gera¬ 
de jedermanns Sache. Daraus könnte sich schnell ein 
»Fulltime-Job« mit Beschäftigung bis ins hohe Rentenalter ent¬ 
wickeln. Es liegt viel näher, das vorhandene Betriebssystem 
einfach so lange abzuändern, bis ein eigenes, den Bedürfnis¬ 
sen angepaßtes Kernal entsteht. Beste Beispiele sind das 
Hypra-Kernal und Hypra-Perfekt (64'er, Ausgaben 12/84, 
1/85 und 4/85). Bestimmt hat so mancher inzwischen schon 
eine kleine Kernal-Sammlung auf Diskette oder EPROM. 

Ganz interessant wäre es dann, auf einfache Weise diese 
Systeme weiter abzuändern. Ihnen beispielsweise einen deut¬ 
schen Basic-Interpreter zu verpassen, mit deutschen System- 
und Fehlermeldungen. 

Gesagt, getan: Vorliegendes Programm erledigt dies alles. 
Es ist abgestimmt auf die Kernal-Version aus der 64’er- 
Ausgabe 1/85 sowie auf das Hypra-Perfekt-Kernal aus Ausga¬ 
be 4/85, arbeitet jedoch auch mit vielen anderen Betriebssy¬ 
stemen. Probieren geht hier über Studieren. 

Im Gegensatz zu den oben genannten EPROM-Versionen, 
erzeugt dieses Programm ein lauf- und damit testfähiges Be¬ 
triebssystem im freien RAM-Bereich unter dem Kernal-ROM 
ab $E000. Nicht jeder wird wohl gleich ein EPROM program- 


100-101 

Feststellen ob ROM/RAM aktiv 

Feststellen ob Kernal nachgeladen 

102 

RAM aktivieren 

103 

Routine zum Data-Einlesen 

123-127 

Anfangs- und Endadressen der POKE-Schleifen 

128-132 

Variablenübergabe an DATA-Einleseroutine und 
Prüfsummen der Datenblöcke 

133 

Aktivieren des neuen Kernal/Basic 

134-154 

Datenblock 1 Fehlermeldungen 

155-159 

Datenblock 2 Interpreter-Meldungen 

160-166 

Datenblock 3 Startkennung 

167-175 

Datenblock 4 System-Meldungen Kernal 

176-182 

Datenblock 5 Old-Routine 

183-189 

Prüfsummen-Statement 

190-197 

ROM-RAM Kopierroutine 

198-209 

Austesten der Farbgebung 

210-230 

Old-Routine anpassen 

231-239 

Nachladen eines Betriebssystems 


N$ = Filename des nachgeladenen Kernais 
P = Zeropage-Adresse 1 auf ROM oder RAM 
A = Anfangsadresse der DATA-Schlelfen 
B = Endadresse der DATA-Schleifen 

S = Prüfsumme 

Z = Zeichenfarbe 

R = Rahmenfarbe 

H = Hintergrundfarbe 

K = verwendete Kernalversion 


▲ Tabelle 1. 
Programmbe¬ 
schreibung 


◄ Tabelle 2. Die 

wichtigsten 

Variablen 


mieren, sondern lieber zuerst etwas experimentieren wollen. 
Zuerst werden Basic und Kernal ins RAM kopiert (Init-Routine 
ab 190). Erst dann kann geändert werden. Das Programm (sie¬ 
he Listing) erlaubt auch (falls vorhanden) ein Betriebssystem 
von Diskette zu laden (Zeile 23, siehe Tabelle 1 und 2). Da¬ 
nach kann die Farbkombination beim Warm- und Kaltstart aus¬ 
getestet werden. Der SYS-Befehl in Zeile 201 löst einen Reset 
des Bildschirms innerhalb der geänderten Kernalroutine aus, 
so daß die Kombination sofort beurteilt werden kann. Erst nach 
Bestätigen verzweigt das Programm nach Zeile 213. Dort kann 
eine OLD-Routine aktiviert werden. Beginn ist ab Adresse 
64608. Dies gilt es zu beachten, wenn ein Kernal abgeändert 
werden soll, das eventuell diesen Bereich benutzt. Es handelt 
sich dabei um einen Teil der normalerweise überschriebenen 
Kassettenroutinen des Betriebssystems. Hat man ein Be¬ 
triebssystem geladen, das mit der OLD-Routine kollidiert, muß 
letztere verschoben werden. 

Die genannten Hypra-Kernal sind diesbezüglich unkritisch. 
Beachtet werden muß lediglich, daß sich deren Adressen für 
Funktionstasten-Belegung unterscheiden. Soll OLD also auch 
auf Funktionstaste gelegt werden, fragt das Programm selbst 
nach der verwendeten Version (Zeile 218). Bei anderen 
Kernal-Versionen kommt es auf das berühmte Experiment an. 
Betriebssysteme ohne eine Belegung der Funktionstasten 
können selbstverständlich auch nicht den OLD-Befehl per 
Funktionstaste unterstützen. Es fehlen ganz einfach die nöti¬ 
gen Routinen (siehe Original Kernal V2.0)! 

Hier bleibt ja immer noch der SYS-Befehl zum Aufruf von 
OLD, den man sich eben merken muß. Für ganz zerstreute 
Freaks ist die nachfolgende Routine am idealsten. OLD als ge¬ 
wöhnlicher Basic-Direktbefehl (also auch abkürzbar mit »O 
SHIFT L«): Zeile 224 sorgt für die entsprechende Program¬ 
mierung. Da hier, wie nachher auch bei den Fehlermeldungen 
in i jutscher Sprache, das Basic mitverändert wird, muß natür¬ 
lich auch das Basic-ROM (beziehungsweise -RAM) abgespei¬ 
chert werden. Wie, das wird zum Schluß erklärt. 

Wurden alle Eingaben gemacht, startet das Programm die 
Initialisierungs-Routine, die Kernal und Basic mit deutschen 
System- und Fehlermeldungen versieht. Zu guter Letzt wird 
das neue Betriebssystem aktiviert (Zeile 133). Jetzt können 
ruhig mal alle Neuheiten durchgespielt werden. Gar nicht so 
einfach, alle Fehler-Meldungen zu »provozieren«. 

Und dabei gibt es immer noch Programmierer, die sich bei 
Meldungen wie »Syntax Error« die Haare raufen. Auf jeden Fall: 
einen »Syntax Error« wird es für jene jetzt wohl kaum mehr ge¬ 
ben. 

Jetzt noch kurz zu den Änderungen gegenüber den 
EPROM-Versionen. Um ein EPROM zu brennen, muß das Pro¬ 
gramm in einem Bereich liegen, auf den das EPROM-Pro- 
grammiergerät zugreifen kann. Daher liegen die Hypra-Kernal 
ab $6 000 im Speicher. Die Adressen bleiben unkorrigiert, so 
daß als EPROM ein lauffähiges Betriebssystem im Originalbe¬ 
reich ab $E000 entsteht. Ausgetestet werden kann aber nur, 
wenn das Betriebssystem wieder an seinen Ursprung ver¬ 
schoben wird. Das kann am komfortabelsten mit einem Moni¬ 
torprogramm durchgeführt werden. 

Ohne Monitor muß mit einer Basic-PEEK/POKE-Schleife 
der Speicherbereich $6000 bis $7FFF auf die Adressen ab 
$E000 verschoben werden: 
forx=24576to49151:fory=57344to65535 
pokey,peek(x):nexty:nextx 

Zuvor muß sichergestellt sein, daß das RAM unter dem 
ROM ab $E000 aktiviert wurde (wie durch die Routine ab Zeile 
193). Am besten, man speichert sich diese Basic-Routine se¬ 
parat als Programm, da sie beim Einlesen eines Betriebssy¬ 
stems immer wieder benötigt wird. Aus Zeitgründen wäre eine 
solche Routine in Maschinen-Code auch nicht zu verachten. 

Der verschobene Speicherbereich muß nun lediglich noch 
auf Disk abgespeichert werden. Ohne Monitor kann dazu zum 
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Beispiel das kleine Programm im 64'er, Ausgabe 2/85, Seite 
91 verwendet werden. 

Mit einem Maschinensprache-Monitor gehfs einfacher: 
Verschieben: T6000,7FFF,E000- 
Save Kernal: .S »K-Name«,08,E000,FFFF 
Save Basic: .S »B-Name«,08,A000,BFFF 
Beim SMON hat der Verschiebe-Befehl den Buchstaben 
»W«, und Komma, Minuszeichen und Geräteadresse entfallen. 

Übrigens kann auch das ROM ins RAM mittels Monitor ko¬ 
piert werden. Die Befehle dazu lauten 
Kernal: T E000, FFFF, EOOO-Basic: T AOOO,BFFF,AOOO- (da¬ 
nach POKE 1,53). 

Auf der Diskette hat man jetzt ein Betriebssystem, das nur 
mehr vom Programm nachgeladen zu werden braucht. Es 
kann aber auch schon vorher ein Betriebssystem im RAM aktiv 
sein. Das Bearbeitungsprogramm erkennt automatisch, ob 
das Original oder ein neues Kernal aktiv ist (Adresse 1 gleich 
55 oder 53, Zeile 100/101)! Andernfalls wird immer das 
Original-Betriebssystem bearbeitet. 

Grundsätzlich muß vor jedem Laden einer Kernal- oder 
Basic-Version von ROM auf RAM umgePOKEt werden. 
Arbeiten mit dem neuen Betriebssystem: 

1. ROM auf RAM umPOKEn 

2. Zeropage-Adresse 1 mit POKE 1,53 umschalten 

3. Kernal laden mit »LOAD "Name",8,1« 

4. Basic laden mit »LOAD "Name",8,1« 

Zur Kontrolle, daß tatsächlich das neue System läuft, kann 
mit SYS 58648, SYS 58260 in den Warmstart gesprungen 
werden. Ein SYS 64738 schaltet immer auf das Original-ROM 
zurück und sollte vermieden werden. Falls er doch einmal aus¬ 
gelöst wird (zum Beispiel Run-Stop/Restore), kann mit POKE 
1,53 jederzeit wieder ins RAM geschaltet werden. 

Da das Bearbeitungsprogramm auch das Basic-ROM än¬ 
dert, muß auch immer Basic von Disk geladen werden. An¬ 
dernfalls hat man englische Fehlermeldungen und OLD nur als 
SYS-Befehl. 

Zum Abschluß muß noch erwähnt werden, daß der OLD- 
Befehl den Basic-Befehl END eliminiert. Bei Fremdprogram¬ 
men sollte im Hinblick auf Syntax-Fehler daran gedacht wer¬ 
den. Eine Verlängerung der Basic-Befehlsliste ist aus Platz¬ 
gründen in dieser Programmversion nicht realisiert worden. 

(Richard Diezmann/rg) 


100 

IF N*= 

""THEN P=PEEK <1):IF P<>53 THEN 1 
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< 198> 

101 

IF N*= 
2 

“"THEN P=PEEK(1):IF P=53 

THEN 23 

<136> 

102 

POKE 1 

,53:GOTO 201 


< 212 > 

103 

FOR 1 = 

A TO B:READ D:POKE I,D:S=S+D:NEX 



T I 



<220> 

104 

RETURN 


< 162> 

105 

REM***************************** 

< 117> 

10<b 

REM* 


* 

< 155> 

107 

REM* 

BETRIEBSSYSTEM-EDI TOR 

# 

<100> 

108 

REM* 


* 

< 157> 

109 

REM* 

COMMODORE 64 

# 

<244 > 

110 

REM* 

KERNAL UND BASIC 

* 

<176> 

111 

REM* 


* 

< 160 > 

112 

REM* 

1985 BY RIDI 

* 

<095> 

113 

REM* 

— 

* 

<209> 

114 

REM* 

RICHARD DIEZMANN 

# 1 

<058> 

115 

REM* 

LOISACHSTRASSE 5 

* 

< 182> 

116 

REM* 

8400 REGENSBURG 

* 

<099> 

117 

REM* 


* 

<166> 

118 

REM* 

TEL.(0941)49542 

# 

< 192 > 

119 

REM* 


* 

<168> 

120 

REM***************************** 

<132> 

121 

POKE 53280,1:POKE 53281,1:PRINT CHR*<1 



47)CHR*(152) 


< 190> 

122 

PRINT' 

DEUTSCHES BETRIEBSSYSTEM 

WIRD";: 



PRINT 

CHR*(13)"INITIALISIERT ! 


< 170> 

123 

A1=41374:E1=41767 


<221 > 

124 

A2=41828:E2=41865 


< 117> 

125 

A3=58463: E3=58540 


<017> 

126 

A4=61629:E4=61738 


< 109> 


127 

A5=64608: E5=64667 

< 198> 

128 

A=A1:B=E1:GOSUB 103:IF S<>29905 THEN 1 



83 

< 167> 

129 

A=A2:B=E2:S=0: GOSUB 103: IF S01919 THE 



N 183 

<088> 

130 

A=A3:B=E3:S=0:GOSUB 103:IF S<>4464 THE 



N 183 

<071 > 

131 

A=A4:B=E4:S=0:GOSUB 103:IF S<>7664 THE 



N 183 

<122> 

132 

A=A5:B=E5:S=0: GOSUB 103: IF S06755 THE 



N 183 

< 169> 

133 

POKE 41812,219:SYS 58648:SYS 58260 

< 154> 

134 

REM DATENBLOCK 1 



BASIC-FEHLERMELDUNGEN 

<240> 

135 

PPM _ . 

< 181 > 


136 

DATA 90,85,32,86,73,69,76,69,32,70,73, 



76,69,211,79,70,70,69,78,161,32 

<038> 

137 

DATA 32,32,78,73,67,72,84,32,79,70,70, 



69,78,161,32,78,73,67,72,84,32,71 

<190> 

138 

DATA 69,70,85,78,68,69,206,71,69,82,65 



,69,B4,32,65,85,83,32,186,32,32 

<202> 

139 

DATA 32,32,32,32,75,69,73,78,32,69,73, 



78,71,46,70,73,76,197,75,69,73,78 

<044> 

140 

DATA 32,65,85,83,71,65,46,70,73,76,197 



,70,73,76,69,78,65,77,69,32,70,69 

<01B> 

141 

DATA 72,76,84,161,32,32,73,76,76,69,71 



,65,76,69,32,71,69,82,65,69,84,78 

<225> 

142 

DATA 85,77,77,69,210,78,69,88,84,32,79 



,72,78,69,32,70,79,210,32,32,32 

<143> 

143 

DATA 83,80,82,65,67,200,82,69,84,85,82 



,78,32,79,72,78,69,32,71,79,83,85 

<242> 

144 

DATA 194,32,32,32,68,65,84,69,78,90,69 



,73,76,69,206,70,65,76,83,67,72 

<057 > 

145 

DATA 69,32,90,65,72,76,186,32,32,32,90 



,65,72,76,32,90,85,190,75,69,73 

<090> 

146 

DATA 78,32,82,65,77,32,77,69,72,210,90 



,69,73,76,69,32,78,73,67,72,84,32 

<075> 

147 

DATA 68,65,32,161,32,78,73,67,72,84,32 



173,78,32,68 7 73,77,161,82,69,68 

<099> 

148 

DATA 73,77,32,65,82,82,65,89,32,173,68 



, 73,86,73,83,73,79,7B,32,68,85,82 

< 190> 

149 

DATA 67,72,32,176,78,85,82,32,80,82,71 


IO 

, a£ 77,79,68,85,83,161,90,65,72 

<051 > 

150 

DATA 76,32,83,84,65,84,84,32,83,84,82, 



73,78,71,161,32,90,85,32,76,65,78 

<134> 

151 

DATA 71,161,32,70,73,76,69,32,68,65,84 



,193,83,84,82,73,78,71,32,90,85 

< 112> 

152 

DATA 32,75,79,77,80,76,69,88,161,32,75 



,65,78,78,32,78,73,67,72,84,161 

<214> 

153 

DATA 32,32,32,85,78,68,69,70,46,32,70, 



85,78,75,84,73,79,78,161,80,82,85 

<237> 

154 

DATA 69,70,197,76,65,68,197 

<244> 

155 

REM 

<217> 

156 

REM DATENBLOCK 2 



MELDUNGEN DES INTERPRETERS 

<175> 

157 

DCM 

<023> 


158 

DATA 13,79,75,13,0,32,70,69,72,76,69,8 



2,0,32,73,78,32,0,13,10,66,69,82 

<016> 

159 

DATA 69,73,84,13,10,0,13,10,80,65,85,8 



3,69,0,160 

< 128> 

160 

REM 

<222> 

161 

REM DATENBLOCK 3 



STARTKENNUNG BETRIEBSSYSTEM 

< 145> 

162 

PEM _ ____ 




163 

DATA 0,32,66,89,84,69,83,32,70,65,83,8 



4,76,79,65,68,73,78,71,0,147,13 

<221 > 

164 

DATA 32,32,32,32,32,32,42,32,67,79,77, 



77,79,68,79,82,69,32,54,52,32,75 

<243> 

165 

DATA 69,82,78,65,76,32,86,50,46,48,32, 



42,32,13,13,40,67,41,49,57,56,53 

<088> 

166 

DATA 32,66,89,32,82,73,68,73,46,32,0,1 



29 

< 147> 

167 

REM 

<229> 

168 

REM DATENBLOCK 4 



SYSTEMMELDUNGEN KERNAL 

<052> 

169 

DCM 

<035> 


170 

DATA 13,69,47,65,32,70,69,72,76,69,82, 



186,13,83,85,67,72,69,32,78,65,67 

<084> 

171 

DATA 72,13,32,32,32,160,68,82,85,69,67 



,75,69,32,80,76,65,89,84,65,83, B4 

<089> 

172 

DATA 69,160,68,82,85,69,67,75,69,32,82 



,69,67,79,82,68,43,80,76,65,89,84 

<240> 

173 

DATA 65,83,84,197,32,32,32,13,13,76,65 



,68,69,160,32,32,13,13,83,65,86 

<209> 

Listing »Betriebssystem-Editor«. Bitte beachten Sie die 

Eingabehinweise auf Seite 6 
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174 

DATA 69,160,32,13,13,80,82,85,69,70,69 
,160,13,70,65,78,68,160,32,13,79 

<067 > 

175 

DATA 75,141 

<229> 

176 

REM 

<238> 

177 

REM DATENBLOCK 5 



KERNAL-OLDftOUT I NE 

<000> 

178 

REM- 

<044> 

179 

DATA 165,43,164,44, 133,34,132,35, 160,3 
,200,177,34,208,251,200, 152,24, 101 

<098> 

180 

DATA 34,160,0,145,43,165,35,105,0,200, 
145,43,136,162,3,230,34,208,2,230 

<102> 

181 

DATA 35,177,34,208,244,202,208,243,165 
,34,105,2,133,45,165,35,105,0,133 

<079> 

182 

DATA 46,96 

<182> 

183 

PRINT-FEHLER IN DER DATEN-SUMME “ 

< 154> 

184 

IF A=A1 THEN PRINT"IN BLOCK 1!" 

< 057 > 

185 

IF A=A2 THEN PRINT"IN BLOCK 2!" 

<124> 

186 

IF A=A3 THEN PRINT"IN BLOCK 3!" 

< 191 > 

187 

IF A=A4 THEN PRINT"IN BLOCK 4!" 

<003> 

188 

IF A=A5 THEN PRINT"IN BLOCK 5!" 

<070> 

189 

PRINT"BITTE UEBERPRUEFEN.": END 

< 161 > 

190 

REM 

<252> 

191 

REM INIT-ROUTINE ROM-RAM 

<169> 

192 

REM- 

<058> 

193 

POKE 53280,0:POKE 53281,0:PRINT CHR*<1 
47>CHR*<152> 

<000> 

194 

PRINT"RAM WIRD AKTIVIERT, BITTE 60 SEC 



WARTEN!" 

<010> 

195 

FOR X=40960 TO 49152:POKE X,PEEK(X):NE 
XT 

<017> 

196 

FOR X=57344 TO 65535:POKE X,PEEK<X):NE 
XT 

<070> 

197 

GOTO 234 

<053> 

198 

REM 

<004> 

199 

REM FARBZUSAMMENSTELLUNG 

<212> 

200 

REM- 

<066> 

201 

SYS 58648 

<094> 

202 

PRINT"FARBEN BEIBEHALTEN ?" 

< 142> 

203 

GET F*:IF F*=""THEN 203 

<152> 

204 

IF FS="J"THEN 213 

<102> 

205 

INPUT“ZEICHENFARBE ";Z 

<082> 

206 

9R7 

INPUT"RAHMENFARBE _ ";R 

TKIPIIT ,, HThlTPRRF?Mf\jnPÄI?m=‘ "-U 


208 

POKE 58677,Z:POKE 60633,R:POKE 60634,H 

<051 > 

209 

SYS 58648:GOTO 202 

<031 > 

210 

REM 

<016> 

211 

REM OLD-BEFEHL EINRICHTEN 

<003> 

212 

REM- 

<078> 

213 

PRINT CHR*(147)"SOLL DIE FUNKTIONSTAST 
E F8 MIT DEM " 

<057> 

214 

PRINT"OLD-BEFEHL BELEGT WERDEN <J/N> " 

<016> 

215 

GET F*:IF F#=""THEN 215 

<229> 

216 

IF F*="J"THEN 218 

< 194> 

217 

GOTO 224 

<057> 

218 

INPUT"KERNAL STANDARD/HYPRA 1I17SPACEI 
KERNAL HYPRA-PERFECT C2SPACEJ2<2SPACE>“ 
;K 

< 197> 

219 

ON K GOTO 220,221 

<222> 

220 

POKE 64346,54:POKE 64347,48:GOTO 224 

< 170> 

221 

POKE 64469,83:P0KE 64470,121:POKE 6447 
1,54:POKE 64472,52:POKE 64473,54 

< 144> 

222 

POKE 64474,48:POKE 64475,56:POKE 64476 
,13:POKE 64477,136:POKE 64778,255 

<062> 

223 

POKE 64479,255 

<045> 

224 

PRINT CHR*(147)"SOLL DER OLD-BEFEHL AL 
S BASIC-DIREKT-" 

<253> 

225 

PRINT"BEFEHL VERWENDET WERDEN <J/N>" 

<060> 

226 

GET F*:IF F*=""THEN 226 

<177> 

227 

IF F*="J"THEN 229 

<229> 

228 

GOTO 121 

<220> 

229 

POKE 40972,95:POKE 40973,252 

<0B5> 

230 

POKE 41118,79:P0KE 41119,76:POKE 41120 
,196:GOTO 121 

<079> 

231 

REM 

<037> 

232 

REM LADEN EINES VORHANDENEN KERNALS 

<140> 

233 

REM- 

<099> 

234 

POKE 1,55:PRINT CHR*<147)"SOLL EIN BES 
TEHENDES BETRIEBSSYSTEM VON" 

<008> 

235 

PRINT"DISK GELADEN WERDEN ?" 

<245> 

236 

GET F*:IF F#=""THEN 236 

<251 > 

237 

IF F*="N"THEN POKE 1,53:GOTO 201 

< 115> 

238 

INPUT"FILENAME “;N* 

< 180> 

239 

LOAD NS,8,1 

<203> 

e 64 
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Mehr Platz auf 
der Diskette 
durch »File- 
Compactor« 

Die Zeit, in der man aus Platzgründen 
nur ein oder zwei Programme auf einer 
Diskette unterbringen kann, ist vorbei. 
Mit diesem neuartigen File-Compactor 
sind Sie in der Lage, nicht nur Grafi¬ 
ken, sondern sogar beliebige Pro¬ 
gramme um bis zu 55 Prozent zu kür¬ 
zen. 

Das Problem, Programme zu packen, um so Platz auf Disket¬ 
ten zu sparen, ist mit einem einfachen File-Compactor, der sich 
darauf beschränkt, Folgen gleicher Bytes zu erkennen und zu 
vereinfachen, noch lange nicht beseitigt. Ein solcher Compac- 
tor (zum Beispiel der File-Compactor aus dem 64’er, Ausgabe 
7/85) kann mit Maschinensprache-Routinen wenig anfangen, 
da nn.l selten mehr als zweimal das gleiche Byte hintereinan¬ 
der vorkommt. Ein guter Programm-Compactor muß daher an¬ 
ders arbeiten. 


Ein neuartiges Computerverfahren 


Hier ist nun ein Compactor, der sich die geringe Unordnung 
in Programmen zunutze macht. Dadurch wird wirklich jedes 
Programm (mit einer Länge von mindestens 25 Blocks) erheb¬ 
lich gekürzt. Es gibt praktisch kein Programm, in dem die ver¬ 
schiedenen Zeichen gleich häufig Vorkommen. In Basic-Pro- 
grammen wird das besonders deutlich, weil dort Leerzeichen, 
Doppelpunkte, das $00-Byte oder auch einzelne Buchstaben 
(wie zum Beispiel das »e«) besonders oft zu finden sind. Es gibt 
aber auch Zeichen, die in einem Programm nur ganz selten 
oder überhaupt nicht Vorkommen. Diese Tatsache kann man 
sich zunutze machen, indem man beispielsweise für häufig 
vorkommende Zeichen, einen 3 Bit langen Code definiert. Je¬ 
der kann sich vorstellen, was das für eine Platzersparnis mit 
sich bringt. Je mehr in dem Programm einige wenige Zeichen 
dominieren, desto geringer ist der durchschnittliche Informa¬ 
tionswert und desto stärker läßt es sich kürzen. Natürlich müs¬ 
sen dabei für die weniger oft vorkommenden Zeichen längere 
Codes (mit einer Länge von 8 Bit und länger) definiert werden, 
damit die Codierung eindeutig bleibt. 

Zusätzlich wurde in diesem Compactor das Verfahren aus 
Ausgabe 7/85 (Zählen gleicher Bytefolgen) angewandt, da es 
besonders bei Spielen mit viel Grafik sehr effizient arbeitet. 

Das Programm, das gekürzt werden soll, muß ab dem Basic- 
Start (Adresse $0801) in den Speicher geladen werden (also 
laden mit »LOAD " Name ",8«) und darf nicht länger als 48639 
Bytes sein. Nach dem Kürzen steht eine SYS-Zeile am Anfang, 
die den Entpacker startet. Dieser wandelt den komprimierten 
Code wieder in ein lesbares Programm. Auch Basic- 
Programme können auf diese Weise von dem Computer bear¬ 
beitet werden. Mit »RUN« wird dann zuerst der Entpacker ge- 
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startet, der dann nach abgeschlossener Umwandlung das ei¬ 
gentliche Basic-Programm ausführt. 


Beispiele zur Benutzung 


Das Spiel »Fort Apocalypse«, das gerne als Maßstab für die 
Güte eines Compactors herangezogen wird, belegt normaler¬ 
weise 153 Blocks auf der Diskette. Nach der Behandlung 
schrumpft der Platzbedarf auf 74 Blocks. Doch vor allem bei 
Basic-Programmen zeigt sich die Stärke des Packers: Sie 
schrumpfen im Schnitt um zirka 20 Prozent, auch wenn sie 
überhaupt keine Folgen gleicher Bytes enthalten. 

1. Eingabe des Listings »File-Compactor« mit dem MSE. 

2. Den Verdichter mit »LOAD".. ",8« laden und mit »RUN« star¬ 
ten. Der Verschiebelader befördert die Routine automatisch in 
den richtigen Speicherbereich. 

3. Jetzt kann man das zu kürzende Programm nachladen. 


4. Den Compactor mit »SYS 51000« aufrufen. Nach getaner 
Arbeit zeigt er den Grad der Verdichtung (in Prozent) an. 

5. Sofern man der Meinung ist, daß sich der Aufwand lohnt, 
kann man das Programm danach wieder mit »SAVE ".. ",8« ab¬ 
speichern. 


Modifizierte SAVE-Routine 


Wenn Programme gekürzt werden sollen, die nicht in den 
Basic-Speicher passen und sich bis unter das ROM er¬ 
strecken, dann gibt es allerdings Probleme mit dem Abspei- 
chem. Für diesen Fall wurde eine modifizierte SAVE-Routine 
implementiert. Statt »SAVE".." ,8« gibt man in diesem Fall »SYS 
50965 ".. "«ein; die Geräteadresse 8 wird in diesem Fall auto¬ 
matisch gesetzt. 

(Arndt Brenschede/ev) 
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0e 

08 

ca 

a8 

59 

0cd9 

3 

9e 

32 

30 

36 

35 

20 

46 

43 

57 

Beel 

3 

43 

00 

00 

00 

a0 

00 

b9 

69 

e8 

0ce9 

3 

07 

99 

00 

cd 

b9 

69 

08 

99 

bl 

0cf 1 

3 

00 

ce 

b9 

69 

09 

99 

00 

cf 

fl 

0cf 9 

■ 

c8 

dB 

eb 

4c 

c2 

cd 

78 

a0 

6b 

0d01 

3 

ff 

04 

fb 

a9 

c6 

B5 

fc 

a9 

56 

0d09 

3 

36 

85 

01 

8d 

20 

dB 

c8 

a5 

eb 

Bd 11 

3 

2d 

dB 

02 

c6 

2e 

c6 

2d 

a6 

lb 

Bdl9 

3 

2e 

eB 

30 

dB 

04 

c9 

01 

f0 

52 

0d21 

3 

Bf 

bl 

2d 

91 

fb 

a5 

fb 

dB 

05 

0d29 

3 

02 

c6 

fc 

c6 

f b 

4c 

d3 

cd 

b3 

0d31 

3 

a2 

BQ 

a9 

01 

B6 

2e 

B5 

2d 

ac 

0d39 

3 

84 

ff 

20 

50 

ce 

c9 

f 3 

d0 

7c 

0d41 

3 

27 

20 

50 

ce 

aa 

86 

fa 

c9 

c5 

0d49 

3 

04 

b0 

04 

a9 

f 3 

dB 

03 

20 

ee 

0d51 

3 

50 

ce 

a0 

00 

91 

2d 

c8 

c6 

64 

0d59 

3 

fa 

dB 

f 9 

98 

18 

65 

2d 

B5 

b9 

0d61 

3 

2d 

90 

02 

e6 

2e 

4c 

34 

ce 

e7 

0d69 

3 

a0 

00 

91 

2d 

e6 

2d 

f0 

f 3 

97 

0d71 

3 

a9 

01 

a2 

60 

e4 

2e 

dB 

c2 

d8 

0d79 

3 

c5 

2d 

d0 

ba 

a9 

37 

85 

01 

4d 

BdBl 

3 

a9 

fe 

Bd 

20 

dB 

5B 

20 

59 

14 

0d89 

3 

a6 

4c 

ae 

*7 

a2 

ff 

86 

f 7 

2a 

0d91 

3 

86 

fB 

eB 

a9 

01 

B5 

fe 

a9 

Be 

0d99 

3 

7f 

85 

f d 

c6 

ff 

10 

IM 

e6 

cl 

0da 1 

3 

fb 

dB 

02 

e6 

fc 

a9 

07 

85 

a6 

Bda9 

3 

ff 

aB 

00 

bl 

fb 

85 

f 9 

06 

0e 

0db 1 

8 

f 9 

bB 

0a 

a4 

fe 

aS 

fd 

39 

al 

0db9 

3 

f 7 

00 

99 

f 7 

00 

8a 

0a 

a8 

e3 

0dcl 

3 

a5 

f 7 

38 

f 9 

e2 

ce 

a5 

fB 

de 

0dc9 

8 

f 9 

e3 

ce 

90 

0e 

e0 

0d 

f0 

77 

Bdd 1 

3 

0a 

eB 

38 

66 

fd 

bB 

c4 

c6 

30 

0dd9 

8 

fe 

f0 

bc 

8a 

f0 

0f 

a5 

f 7 

de 

Bdel 

3 

38 

f 9 

e0 

ce 

85 

f 7 

a5 

fB 

c8 

0de9 

3 

f 9 

el 

ce 

85 

f 8 

a4 

fe 

f0 

ca 

0df 1 

3 

07 

a5 

fB 

85 

f 7 

88 

84 

f 8 

81 

0df 9 

3 

a5 

fd 

4a 

90 

07 

46 

fB 

66 

95 

0e01 

3 

f 7 

4c 

be 

ce 

bd 

d2 

ce 

65 

20 

0eB9 

: 

f 7 

a8 

b9 

00 

cf 

60 

e0 

01 

48 


Listing »File-Compactor« 

(Bitte mit dem MSE eingeben. Be¬ 
achten Sie die Hinweise auf Seite 8) 



81 












Tips & Tricks 


Bildschirm- 
Effekte leicht¬ 
gemacht 

Mit dieser Basic-Erweiterung können 
Sie in beliebigen Bildschirmaus¬ 
schnitten Spezialeffekte wie Blinken, 
Invertieren oder Auffüllen mit beliebi¬ 
gen Zeichen einfach erzeugen. 

Diese kleine Maschinensprache-Routine (»Screen«) kann in 
nahezu allen Programmen Verwendung finden, um zum Bei¬ 
spiel fehlerhafte Eingaben durch Blinken zu markieren oder um 
Eingabefelder zu löschen. Auch für die Gestaltung von Titelbil¬ 
dern bietet sich »Screen« an. Folgende Routinen sind vorhan¬ 
den: (0) Invertieren des gewählten Bereichs 

(1) Reversdarstellung eines Bildschirm-Bereichs 

(2) Normaldarstellung (Gegenstück zu (1)) 

(3) Auffüllen eines Bereichs mit beliebigen Zeichen 

Das Programm (Listing 1 und 2) kann auf zwei verschiedene 

Arten aufgerufen werden. Entweder starten Sie es mit »SYS 
(Anfangsadresse+36)« oder Sie benutzen statt dessen das 
Ausrufezeichen »!«. Der erste Weg bietet sich an, wenn schon 
eine andere Befehlserweiterung das »!« benutzt. Die korrekte 
Syntax des »!«-Befehls entnehmen Sie bitte Tabelle,!. 

Das Programm ist frei im Speicher verschiebbar; die beiden 
notwendigen Vektoren für die Befehlserweiterung werden in 
Zeile 195-200 automatisch angepaßt. Möchte man lieber mit 
dem SYS-Befehl arbeiten, dann können die Zeilen 165-225 


155 SA= 49152 <034> 

160 : <136> 

165 HB=INT((SA+11>/256>:REM VEKTOR HIGH <116> 

170 LB=(SA+11,-HB*256:REM VEKTOR LOW <203> 

175 : <151> 

180 REM*** VERBIEGEN DES VEKTORS ****** <016> 

185 REM*** + l|lEUE CHRGET ROUTINE ****** <095> 

190 : <166> 

195 POKE SA ,162:POKE SA+1,LB <244> 

200 POKE SA+2,160:POKE SA+3.HB <063> 

205 FOR I=SA+4 TO SA+35:READ X:POKE I,X:NE 

XT <07B> 

210 DATA 142, 8, 3,140, 9, 3, 96 <066> 

215 REM- <245> 

220 DATA 32,115, 0,201, 33,240, 6 <145> 

225 DATA 32,121, 0, 76,231,167, 32,115, 

0, 32, 36,192, 32,121, 0, 76,231,167 <062> 

230 : <206> 

235 REM*** EIGENTLICHES PROGRAMM ****** <023> 

240 : <216> 

245 S=0:FOR I=SA+36 TO SA+217 <252> 

250 READ X:POKE I,X:S=S+X <037> 

255 NEXT <009> 

260 IF S<>23004 THEN PRINT"** DATA FEHLER 

**“:STOP <081> 


265 DATA 216, 32,250,174, 32,158,183,134, 

89, 32,241,183,134, 90, 32,241,183,134 <109> 
270 DATA 91, 32,241,183,134, 92, 32,247,17 

4, 32,241,183,134,253, 32,241,183,134 <244> 

275 DATA 254,165, 90, 56,229, 89, 24,105, 

1,133,252,165, 92, 24,105, 1,133, 92 <040> 

280 DATA 56,229, 91,133,251,169,128,133, 9 

3,173,136, 2,133, 88,162, 0,134, 87 <164> 

285 DATA 166, 89,240, 16,165, 87, 24,105, 

40,133, 87,165, 88,105, 0,133, 88,202 <025> 

290 DATA 20B,240,173, 17,208, 42,144,250,1 

69, 11,141, 17,208,184,166,253,164, 91 <23B> 
295 DATA 177, 87, 80, 26,145, 87,200,196, 

92,208,245,165, 87, 24,105, 40,133, 87 <004> 
300 DATA 165, 88,105, 0,133, 88,198,252,2 

08,226, 80, 38,177, 87,224, 0,240, 14 <246> 

-C7 DATA 224, 1,240, 20,224, 2,240, 20,2 

24, 3,240, 8,208, 18, 36, 93,240, 6 <243> 

310 DATA 208, 8,165,254, 80,200, 9,128, 

80,196, 41,127, 80,192,169, 27,141, 17 <100> 
315 DATA 208, 96 <195> 


Listing 1. »Screen« als DATA-Lader. Bitte beachten 


100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

180 

185 

190 

195 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 


REM******************************** 
REM** DEMO-PROGRAMM ZU '!SCREEN' ** 
REM** ** 
REM** 28.6.85 STEFAN WAGNER ** 
REM** HOEHENSTR.102 ** 
REM** 5090LEVERKUSEN 3 ** 
REM** ** 
REM******************************** 


!(0,24,0,39),3,235 
FOR 1 = 1 TO 24 


:!<1,1,0,39-1 ),2,0 
: FOR K=1 TO 200-8*1 . . . 

. next K Listing 2. 

: Demonstrationsprogramm 

next i zu »Screen«. 

PRINT CHR*< 147, Bitte beachten Sie 

r die Eingabehinweise 


for f= 0 to 3 step 3 auf Seite 6. 

s FOR V=20 TO 0 STEP—5 
: FOR 1= 2 TO 8 
: FOR J=10 TO 12+1 

: C=RND<0>*255 


: !(2,I,10,J),F,C 


: FOR X=1 TO V 

: NEXT X 

: NEXT J 

: NEXT I 
:NEXT V 
NEXT F 


PRINT CHR*(19,"{2SPACE>ABSCHALTEN MIT 
STOP" 


270 : 

275 !(0,24,0,39),0,0 

2B0 FOR X=1 TO 150:NEXT:GOTO 275 


< 150> 
<07B> 
< 110 > 
<214> 
< 011 > 
<059> 

< 130> 

< 1B5> 

< 116> 

< 1B6> 
<173> 
<131 > 

< 111 > 
<090> 
<090> 

< 151 > 
<008 > 

< 161 > 
<219> 

< 171 > 
< 002 > 
< 122 > 

< 198> 
<224> 
<232> 

< 161 > 
<169> 
< 108> 

< 144> 
<133> 
<091 > 
<059> 
<238> 

<071 > 
<248> 
<06B> 

< 181 > 


Sie die Eingabehinweise auf Seite 6. 

Tabelle 1. Die Syntax 
des neuen 
»!«-Befehls. 


ersatzlos entfallen, in diesem Fall findet das Programm auch im 
Kassettenpuffer Platz. Tabelle 2 zeigt die Belegung der Zero- 
Page durch das Programm. 

Zu bemerken ist noch, daß das Programm aus Platzgründen 
nicht auf ungültige Zeichen oder Spaltenwerte testet. In Ihren 
Programmen müssen Sie daher darauf achten, daß der Bild¬ 
schirmbereich eingehalten wird, da sich sonst Probleme erge¬ 
ben können. Das Demonstrationsprogramm in Listing 2 sieht 
zwar unscheinbar aus, erzeugt aber überraschende Effekte. 

(Stefan Wagner/ev) 


Initialisieren: SYS SA 
Syntax: 

! (VZ,BZ,VS,BS) ,F,C 
VZ = Von Zeile 
BZ = Bis Zeile 
VS = Von Spalte 
BS = Bis Spalte 
F = Funktion (0-3) 

0 = Invers 

1 = Revers 

2 = Normal 

3 = Füllen 

C = Füllcode 
(= Bildschirmcode) 


Adresse 

Inhalt 

Erklärung 

87 

BL 

Bildschirmadresse 

LowByte 

88 

BH 

Bildschirmadresse 

HighByte 

89 

ABZE 

ab Zeile 

90 

BISZE 

bis Zeile 

91 

ABSP 

ab Spalte 

92 

BISSP 

bis Spalte 

93 

TEST 

enthält #128 

251 

ANZSP 

Anzahl Spalten 

252 

ANZZE 

Anzahl Zeilen 

253 

FKT 

Funktionscode 

254 

CODE 

Füllcode t 


Tabelle 2. Die verwendeten 
Speicherstellen 
in der Zero-Page 
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Tips & Tricks 


Aus eins 
mach zwei 

Mit dieser kleinen Routine »verdop¬ 
peln« Sie Ihren Computer. Sie sind da¬ 
mit in der Lage, zwei Maschinenpro¬ 
gramme praktisch gleichzeitig laufen 
zu lassen. 

Die Routine selbst belegt etwa 190 Byte und ist im freien 
4-KByte-RAM-Bereich (ab Adresse 49152) abgelegt. Außer¬ 
dem benötigt sie zwei Pages (Page 193 und 194) als Zwi¬ 
schenspeicher. Zusätzlich wird noch der Basic-Interpreter und 
das Betriebssystem in das darunterliegende RAM kopiert. 
Schließlich »verbiegt« die Routine den Interruptvektor. 

Das Programm ermöglicht das »gleichzeitige« Betreiben 
zweier Maschinenroutinen. Jede dieser Routinen läuft nun nur 
noch mit der halben Geschwindigkeit. 

Die Routine wird folgendermaßen gehandhabt: Die Start¬ 
adresse des ersten Maschinenprogramms, das man benutzen 
möchte, wird in Adresse 49158 (Lo-Byte) und 49159 (Hi-Byte) 
abgelegt. Analog verfährt man mit der Startadresse des zwei¬ 
ten Maschinenprogramms, die in Adresse 49156 und 49157 
gePOKEt werden muß. Der Befehl SYS 49168 aktiviert die 
Routine, der Befehl POKE 1,55 (oder in Maschinensprache 
LDA # 55; STA 1) stellt sie wieder ab. Diese Umschaltung, sei 
es Basic oder Assembler, wird am besten durch das erste Pro¬ 
gramm durchgeführt, da nur von dort wieder im Basic-Modus 
weiter gearbeitet werden kann. 

Basic und Maschinensprache 
gleichzeitig 

Grundvoraussetzung für das Koppel-Programm ist, daß die 
beiden zu betreibenden Routinen in Maschinensprache ge¬ 
schrieben sind. Auf den ersten Blick mag es daher so ausse- 
hen, als wären die Einsatzmöglichkeiten dieser Routine sehr 
beschränkt. Das Gegenteil ist jedoch der Fall. Da auch das 
Basic-ROM »Maschinensprache« ist, kann man ohne weiteres 
mit RTS zum Basic-Modus zurückkehren, anstatt die erste Ma¬ 
schinenroutine zu beginnen. Um dies zu erreichen, ersetzt 
man dieZahl 108 (JMP indirekt) in Speicherstelle 49187 durch 
eine 96 (RTS-Code). Jetzt kann man in Basic programmieren 
und seine Basic-Programme auch entsprechend abarbeiten 
lassen, während eine zweite Maschinensprache-Routine qua¬ 
si »im Hintergrund« abgearbeitet wird. Denkbare Anwendun¬ 
gen sind das Spielen von Melodien oder die automatische Be¬ 
wegung von Sprites während des Programm-Laufs. 

Nachdem Sie »Multiprogramming« (Listing 1) mit RUN ge¬ 
startet haben, sehen Sie ein merkwürdiges Geflimmer auf dem 
Bildschirm. Dies ist kein Fehler im Programm (dessen doku¬ 
mentierter Soure-Code in Listing 2 zu finden ist), sondern eine 
kleine Demonstration. Eine Maschinenroutine ändert fortwäh¬ 
rend die Rahmen-, eine zweite die Hintergrundfarbe. Beide 
kleinen Programme (Adresse 49350 und 49375) laufen jetzt 
quasi »gleichzeitig« ab. Die Anwendungsbereiche der Basic- 
Routine sind sehr vielfältig. Sie reichen von der Ausgabe auf 
zwei Drucker über die »gleichzeitige« Abfrage von Port A und B 
bis hin zu komplexeren Realtime-Aufgaben. Da gerade bei ei¬ 
nem solchen Programm die Dokumentation sehr wichtig ist, • 
drucken wir sowohl den Source-Code (Listing 2) als auch das 
Flußdiagramm (siehe Bild) mit ab. (Thomas Weinbrenner/ev) 

. 
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Daten für das Programm: 

Listing 2. Source-Code 

49152 


XXX 

:y-Register des Programms 

49153 


XXX 

;x-Register „Aus eins mach zwei«. 

49154 


XXX 

.Akkumulator 


49155 


33 

•.Statusregister 


49156 


XXX 

;Startadresse 2. Pro- 

49157 


XXX 

gramm (Lo und Hi) 


49158 


XXX 

;Startadresse 1. Prc 

- 

49159 


XXX 

gramm (Lo und Hi) 


49160 


XXX 

;Stapelzelger 1. Programm 

49161 


249 

;Stapelzelger 2. Programm 

Aktivierungsroutine: 



49168 

SEI 


120 


49169 

JSR 

49191 

32,39,192 


19172 

LDA 

#53 

169, 53 

;RAM-Konfiguration 

49174 

LDV 

#98 

160, 98 


49176 

LDX 

#192 

162, 192 


49178 

STA 

1 

133, 1 


49180 

STY 

65534 

140, 254,255 


49183 

STX 

65535 

142, 255,255 


49186 

CLI 


88 


49187 

JMP 

(49158) 

108, 6, 192 

;Sprung zum 





1. Programm 

Hier werden die Zeiger auf die eigene Interruptroutine gesetzt. Danach 

yvird das erste Programm angesprungen. 


49191 

LDY 

#0 

160, 0 

;Werte setzen zum 

49193 

STY 

38 

132, 38 

Basic-ROM kopieren 

49195 

DEY 


136 


49196 

STY 

39 

132, 39 


49198 

JSR 

49212 

32,60,192 

;Basic-ROM kopieren 

49201 

LDY 

#191 

160, 191 

;Werte setzen zum 

49203 

STY 

39 

132, 39 

Kernal-ROM kopieren 

49205 

JSR 

49212 

32,60,192 

;Kernal-ROM kopieren 

19008 

JSR 

49231 

32,79,192 

:Daten setzen 

40*11 

RTS 


96 


49212 

LDX 

#32 

162, 32 

;32 Pages kopieren 

49214 

LDY 

#0 

160, 0 


49216 

DEY 


136 

* 

49217 

LDA 

(38),Y 

177, 38 


49219 

STA 

(38),Y 

145, 38 


49221 

CPY 

#0 

192, 0 


49223 

BNE 

49216 

208, 247 


49225 

DEC 

39 

198, 39 


49227 

DEX 


202 


49228 

BNE 

49214 

208, 240 


49230 

RTS 


96 


Diese Routine kopiert das Betriebssystem und den Basic-Interpreter in 

das »darunter«-liegende RAM. 


49231 

LDA 

#0 

169, 0 

lEntscheidungsfaktor 

49233 

STA 

2 

133, 2 


49235 

LDY 

#5 

160, 5 

;Daten für späteren 

49237 

LDA 

49152,Y 

185, 0,192 

Interruptrücksprung 

49240 

STA 

49914.Y 

153, 250,194 

in Page 194 setzen 

49243 

DEY 


136 


49244 

BPL 

49237 

16, 247 


49246 

RTS 


96 


Interruptroutine: 




49250 

PHA 


72 

;x-,y-Register und 

49251 

TXA 


138 

Akku auf den Stack 

49252 

PHA 


72 

retten 

49253 

TYA 


152 


49254 

PHA 


72 


49255 

LDA 

2 

165, 2 


49257 

BNE 

49298 

208, 39 


49259 

LDY 

#255 

160, 255 

;Stack in Page 193 

49261 

LDA 

256,Y 

185, 0,1 

kopieren 

49264 

STA 

49408,Y 

153, 0,193 


49267 

DEY 


136 


49268 

CPY 

#255 

192, 255 


49270 

BNE 

49261 

208, 245 
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49272 

LDA 

49664,Y 

185, 0,194 

;Page 194 in den 

49275 

STA 

256,Y 

153, 0,1 

Stack kopieren 

49278 

DEV 


136 


49279 

CPY 

#255 

192, 255 


49281 

BNE 

49272 

208, 245 


49283 

TSX 


186 

;Stapelzeiger ver- 

49284 

STX 

49160 

142, 8,192 

tauschen 

49287 

LDX 

49161 

174, 9,192 

t 

49290 

TXS 


154 


49291 

LDY 

#1 

169,1 

;Entscheldungs- 

49293 

STA 

2 

133, 2 

takten ändern 

49295 

JMP 

49334 

76, 182,192 


49298 

LDY 

#255 

160, 255 

;Stack in Page 

49300 

LDA 

256,Y 

185, 0,1 

194 kopieren 

49303 

STA 

49664,Y 

153, 0,194 


49306 

DEY 


136 


49307 

CPY 

#255 

192, 255 


49309 

BNE 

49300 

208, 254 


49311 

LDA 

49408,Y 

185, 0,193 

;Page 193 in den 

49314 

STA 

256,Y 

153, 0,1 

Stack kopieren 

49317 

DEY 


136 


49318 

CPY 

#255 

192, 255 


49320 

BNE 

49311 

208, 245 


49322 

TSX 


186 

iStapelzeiger ver- 

49323 

STX 

49161 

142, 9,192 

tauschen 

49326 

LDX 

49160 

174, 8,192 


49329 

TXS 


154 


49330 

LDA 

#0 

169, 0 

;Entscheidungs- 

49332 

STA 

2 

133, 2 

Faktor ändern 

49334 

PLA 


104 

;x-,y-Register und 

49335 

TAY 


168 

;Akku vom Stack 

49336 

PU 


104 

holen 

49337 

TAX 


170 


49338 

PU 


104 

64€F 

49339 

JMP 

65352 

76, 72,255 


Programm 

: mupro 




0801 09ld 

0801 


0C 

08 

cl 

07 

9e 

20 

32 

30 

77 

0809 

: 

36 

32 

00 

00 

00 

a0 

00 

b9 

dl 

0811 

s 

lc 

08 

99 

00 

C0 

c8 

d0 

f 7 

ld 

0819 

: 

4c 

10 

C0 

00 

00 

00 

21 

df 

e2 

0821 

■ 

C0 

c6 

C0 

f0 

f 9 

54 

45 

58 

9a 

0829 

: 

20 

41 

53 

78 

20 

27 

C0 

a9 

5f 

0831 

: 

35 

a0 

62 

a2 

C0 

85 

01 

8c 

f 9 

0839 

: 

f e 

ff 

Be 

ff 

ff 

58 

4c 

c6 

5c 

0841 

: 

C0 

ea 

a0 

00 

84 

26 

88 

84 

43 

0849 

: 

27 

20 

3c 

C0 

a0 

bf 

84 

27 

10 

0851 

: 

20 

3c 

c 0 

20 

4f 

C0 

60 

a2 

85 

0859 

: 

20 

a0 

00 

88 

bl 

26 

91 

26 

b9 

0861 

: 

C0 

00 

d0 

f 7 

c6 

27 

ca 

d0 

c7 

0869 

: 

f0 

60 

a9 

00 

85 

02 

a0 

05 

e9 

0871 

: 

b9 

00 

C0 

99 

fa 

c2 

88 

10 

96 

0879 

s 

f 7 

60 

54 

2e 

57 

48 

8a 

48 

ee 

0881 

: 

98 

48 

a5 

02 

d0 

27 

a0 

ff 

b0 

0889 

s 

b9 

00 

01 

99 

00 

cl 

88 

C0 

68 

0891 

: 

ff 

d0 

f 5 

b9 

00 

c2 

99 

00 

29 

0899 

: 

01 

BB 

C0 

ff 

d0 

f 5 

ba 

8e 

d3 

08a 1 

s 

08 

C0 

ae 

09 

C0 

9a 

a9 

01 

60 

08a9 

: 

85 

02 

4c 

b6 

C0 

a0 

ff 

b9 

9e 

08b 1 

: 

00 

01 

99 

00 

c2 

88 

c0 

ff 

0c 

0Bb9 

: 

d0 

f 5 

b9 

00 

cl 

99 

00 

01 

dd 

08c 1 

s 

B8 

C0 

ff 

d0 

f 5 

ba 

Be 

09 

45 

08c9 

: 

C0 

ae 

08 

C0 

9a 

a9 

00 

85 

fc 

08dl 

s 

02 

68 

aB 

68 

aa 

6B 

4c 

48 

ee 

0Bd9 

: 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

da 

08e 1 

: 

ff 

a9 

00 

8d 

20 

d0 

a9 

01 

98 

0Bg9 

s 

Bd 

20 

d0 

4c 

c6 

C0 

ff 

ff 

b6 

08f 1 

: 

ff 

ff 

ff 

ff 

tf 

ff 

ff 

ff 

f0 

0Bf9 

: 

ff 

ff 

a9 

00 

8d 

21 

d0 

a9 

db 

0901 

: 

01 

8d 

21 

d0 

4c 

df 

C0 

ff 

f 2 

0909 

- 

ff 

ff 

ff 

ff 

tf 

ff 

ff 

ff 

08 

0911 

: 

ff 

ff 

ff 

ff 

tt 

ff 

ff 

ff 

10 

0919 

s 

ff 

ff 

ff 

60 

5f 

b4 

4c 

64 

b9 

Listinq 1 des Programms »Aus eins mach 

zwei«. 

Bitte La ichten Sie die Eingabehinweise auf Seite 8. 
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Tips & Tricks 


Leichte 

Eingabe 

Die Benutzerfreundlichkeit eines Pro¬ 
grammes hängt von der Behandlung 
der Eingabe beziehungsweise Fehl¬ 
eingabe ab. Dieses Programm besei¬ 
tigt viele damit verbundene Probleme. 

Das aufgeführte Programm (Listing 1) 2, das eine echte Hilfe 
beim Erstellen von benutzerfreundlichen Programmen dar¬ 
stellt, ist eine Basic-Eingaberoutine, das heißt, es ist in Basic 
geschrieben und ersetzt den normalen INPUT-Befehl. 

Es ist in der Handhabung sehr einfach gehalten und dabei 
noch recht kurz. 


Es werden folgende Variablen benutzt: 

INS 

Übergabevariable für den einzulesenden String 

LT 

maximale Länge des einzulesenden Strings 

ZT 

Hilfsvariable zur Simulation des Cursors 

ZC 

Hilfsvariable zur Simulation des Cursors 

ZL 

aktuelle Länge des einzulesenden Strings 

ZS 

zuletzt gelesenes Zeichen 

z 

ASCII-Code des gelesenen Zeichens und 
Laufvariable 


Variablenliste zur Eingabe-Routine 

■ME E 


Der Benutzer muß dabei nur IN$ und LT vorbesetzen (siehe 
Variablenliste). In der Routine wird als erstes IN$ ausgegeben. 
Dies hat den Vorteil, daß Standardantworten vorgegeben wer¬ 
den können. Danach werden die für die Darstellung des Cur¬ 
sors notwendigen Variablen vorbesetzt. 

Dann wartet die Routine auf die Eingabe eines Zeichens. Der 
Cursor wird währenddessen dadurch simuliert, daß ein Leer¬ 
zeichen laufend invertiert wird. 


Komfortabler als »INPUT« 


Nachdem ein Zeichen eingegeben wurde, wird zuerst ge¬ 
prüft, ob überhaupt noch Zeichen angenommen werden dür¬ 
fen. Ist dies der Fall, wird untersucht, ob das Zeichen ein 
Steuerzeichen ist. 

Falls es keins ist, wird das Zeichen ausgegeben und an den 
Übergabestring angehängt. Dann wird das Hochkommaflag 
zurückgesetzt, um weiterhin eine vernünftige Eingabe zu ge¬ 
währleisten. 

Falls das eingegebene Zeichen ein Steuerzeichen ist, gibt 
es nur vier Möglichkeiten: 

1. Es ist ein »RETURN«, dann ist die Eingabe beendet. 

2. Es ist ein »DELete«, dann wird der Übergabestring um ein 
Zeichen vermindert. 

3. Es ist ein »SHIFT RETURN«, dann wird der gesamte String 
gelöscht, und der Cursor an den Anfang des Eingabefeldes 
positioniert. 

4. Es ist ein anderes Steuerzeichen, dann wird es ignoriert. 

Bei den Punkten 1. bis 3. wird auch noch getestet, ob über¬ 
haupt schon ein Zeichen eingegeben wurde. Ist dies nicht 
der Fall, dann haben auch diese drei Steuerzeichen keine 
Wirkung. (Willi Burmeister/rg) 



Weitere aktuelle 64'er-Sonderhefte 
mit ausführlichen Informationen 
zu ausgewählten Themen: 



Programmheft Nr. 4 

GRAFIK & DRUCKER 

Randvoll mit Informationen: Rund 
28 Listings der Spitzenklasse. Darunter 
Top-Listings zur räumlichen Darstellung von 
Körpern aus beliebigen Betrachtungsrichtungen. 
Weiters: Prüfsummenlistings, Drucker-Anwendung, Ba- 
sic-Erweiterung, Hardcopy-Routinen, Zeichengenerator, 

Grundlagen, Tips & Tricks. 



Heiße Listings für alle Spiele-Fans: 

Sportspiele, Schießspiele, Denkspiele 
Spielegeneratoren, Abenteuerspiele, Brett¬ 
spiele, Taktikspiele, Geschicklichkeitsspiele und 
eine Marktübersicht aller in Deutschland erhältlichen 
professionellen Spiele bringen alles, was das Herz der 
Spiele-Fans höher schlagen läßt. 
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10 REM *************************** 

<U9> 


12 REM"* T25SPACE>* 

<066> 


14 REM M *t5SPACE>ÜILLI ÄJRMEISTERC4SPACE>* 

<011> 


16 REM"* C23SPACE > * 

<070> 


18 REM"* C5SPACE JÜQLZKRUGWEG 30<6SPACE>* 

<133> 


22 REM"*«SPACE>2390 D_ENSBURG<6SPACE>* 

<221 > 


24 REM"»(25SPACEJ* 

<078> 


26 REM"» L5SPACE3ZEL.: 0461/92164<4SPACE>* 

< 190> 


28 REM"» T25SPACE >» 

<082 > 


30 REM"*(9SPACEJJIASIC -C9SPACE>* 

< 052 > 


32 REM"» C 5SPACE> H NGABEROUTINE(6SPACE> * 

<246> 


34 REM"* C255PACE)* 

<088> 


36 REM"*************************** 

<219> 


40 GOTO 1000 

<236> 



< 159> 


60 REM * BEGIN DER ROUTINE * 

<097> 



< 179> 


100 PRINT IN*: : ZT-Tl : ZC-4 : IF <LT<1> 

THEN LT-1 

<160> 


110 GET Z* 1 IF Z*< >"" THEN 140 

< 1 08 > 


120 IF <ZTOTI> THEN PRINT M1D* < " fSPACE,UP 
.DOWN,RVSON,SPACE,RVOFF >",ZC,3 >;"<LEFT 

)"5 s ZC-5-ZC : ZT-TI+25 

<110> 


130 GOTO 110 

<074> 


140 Z=ASC < Z*> : ZL=LEN(IN*> 

< 150 > 


130 IF (ZL<LT) AND <<Z AND 127)>31) THEN I 

N*=IN*+Z* s PRINT Z*: s POKE 212,0 : G 

OTO 110 

< 109> 


160 PRINT"(SPACE,LEFT>" ( 

<002> 


170 IF (Z-13) AND <ZL>0> THEN RETURN 

<081 > 


180 IF <Z=20) AND (ZL>0) THEN IN*“LEFT*(IN 

*,ZL—1) : PRINT "<LEFT>"; : GOTO 110 

<027 > 


190 IF <Z = 141) AND ( ZL>0) THEN FOR Z-l TO 

ZL : PRINT "<LEFT,SPACE.LEFT>": : NEXT 

: IN*-"" 

<089> 


200 GOTO 110 

< 144> 


210 REM *************************** 

<063> 


220 REM * ENDE DER ROUTINE * 

< 187> 


230 REM *************************** 

<003> 


1000 PRINT"<CLR>" 

<226> 


1010 PRINT"3ASIC—£1NGABEROUTINE äEISPIEL" 

<187> 


1020 PRINT : PRINT 

<210> 


1030 IN*= " «VJDRBESET ZUNG " : LT=15 

<201 > 


1040 GOSUB 100 

<224> 


1050 PRINT " C2D0WNJ" : PRINT IN* 

<246> 


© G4'er 

Listing 1. »Eingaberoutine«. Bitte bei der 


Eingabe Seite 6 beachten. 


O vf 


Tips für Anfänger 


List-Bremse 

Dieses kleine Programm hält das Listen einer Zeile so lange 
an, wie eine Taste gedrückt ist. Dazu verändert es zwei Zeiger, 
die normalerweise auf die Ausgabe der Schlüsselworte zei¬ 
gen. Es wird durch die Adresse 203 geprüft, ob eine Taste ge¬ 
drückt ist. Falls ja, so wird mit der Ausgabe weitergemacht. 
Wenn nein, so wird noch einmal abgefragt. 

Das Programm ist mit SYS 49152 zu starten. 

(Jörg Blaumeiser/tr) 

PROGRAMM : LIST-STOP.OBJ COOO C016 

COOO : A9 OB 8D 06 03 A9 CO 8D EF 

C008 : 07 03 60 48 A5 CB C9 40 12 

C010 : FO FA 68 4C 1A A7 31 EA 9A 


Und wieder einige POKE’s für den C 64: 

POKE768.61 — Fehlermeldungen unterdrücken 
POKE768.139 — kein Unterdrücken der Fehlermeldungen 
mehr 

P0KE19,64 — Sperre des Fragezeichens bei INPUT 
P0KE19,0 — Auflösen der Sperre 

P0KE1 57,128 — LOADING, SEARCHING usw. erscheinen 
auch im Programm 


POKE649.0 — Sperre der Eingabe per Tastatur 
POKE649.10 — Auflösen der Sperre 
POKE657.128 — Sperre der Zeichensatzumschaltung mit 
SHIFT+C= 

POKE657,0 — auflösen der Sperre 
POKE768.143 — Reset nach Programmbeendigung 
POKE768.145 — Sperre der Fehlermeldungen im Direkt- 
Modus 

POKE788,81 — schnell blinkender Cursor 
POKE788.56 — Cursor aus 

POKE788.56 — RUN/STOP blockiert + Cursor aus + inter¬ 
ne Uhr bleibt stehen 

POKE56325,x — Cursor-Geschwindigkeit verändern 
(1 =sehr schnell.,.255=langsam) 

POKE56325.0 — langsames LIST 

(Rainer Sprehe/tr) 


Die Rechengenauigkeit des C 64 

In den 64’er Ausgaben 9 und 10 des letzten Jahres wurde 
im Leserforum die mangelhafte Rechengenauigkeit des C 64 
angesprochen. 

Die folgende Zeile zeigt das deutlich: 

5 A=A+0,01 : ?A : GOTO 5 
Die Ungenauigkeit hat schon manches Mathematikpro¬ 
gramm scheitern lassen. Der C 64 ist eben nicht in der Lage, 
eine Zahl mehrmals um eine Kommazahl zu vergrößern. Man 
kann diese Ungenauigkeit aber mit folgender Rundungsformel 
umgehen: 

5 A=A+0,01 : A=INT (A* 100+0.5)/100 : ?A : GOTO 5 
Die »100« in der Formel bewirkt ein Runden auf zwei Nach¬ 
kommastellen. Wenn man auf drei Stellen hinter dem Komma 
runden will,' o muß man die »100« durch eine »1000« erset¬ 
zen. (Andreas Schilling/tr) 


Buntes Directory 

Bestimmt hat sich der eine oder andere schon Gedanken 
darüber gemacht, wie er sein Directory bunt gestalten könnte. 
Nichts einfacher als das: 

Man muß das Programm nur folgendermaßen speichern: 
SAVE" (SHIFT-SPACE) (FARBTASTE) TEST",8 
Nach dem Laden des Directory erscheint der Programm- 
Name »TEST« in der zuvor eingegebenen Farbe. Selbstver¬ 
ständlich kann man nach der Farb-Taste auch noch die Re¬ 
vers-Taste drücken. 

Beim Laden des Programmes selbst ist jedoch darauf zu 
achten, daß man nach dem LOAD-Befehl ebenfalls die gleiche 
Tastenkombination eintippt. In unserem Beispiel würde die 
Programm-Zeile folgendermaßen aussehen: 

LOAD" (SHIFT-SPACE) (FARBTASTE) TEST",8 
Am nützlichsten erscheint mir diese Form des Speicherns 
bei Dateien. Man könnte die verschiedenen File-Typen farb¬ 
lich kennzeichnen, wodurch eine bessere Übersicht und so¬ 
mit auch eine gewisse Ordnung entsteht. 

Die REL-Files könnten zum Beispiel gelb, 
die SEQ-Files revers und weiß gekennzeichnet werden. 
Folgende Zeile müßte im Programm so aussehen: 

OPEN 1,8,1,"(SHIFT-SPACE) (FARBTASTE) TEST,S,W": 
CLOSE 1 

Gleichzeitig entsteht so ein gewisser Programm-Schutz: 
Die abgespeicherten Programme stehen nämlich wie folgt 
im Directory: 

67 " "TEST PRG 

Auf normalem Weg sind diese Programme nicht zu laden. Es 
muß eben wie schon erwähnt, das SHIFT-SPACE dazu. 

(Dieter Plaum/tr) 
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Tips & Tricks 


Formeln per¬ 
fekt gedruckt 

Endlich ist es möglich, mit dem Epson 
FX-80 mathematische Sonderzeichen 
zu drucken. 

Mit diesem Programm können mathematische Formeln in 
korrekter Schreibweise zu Papier gebracht werden. Es ist lauf¬ 
fähig auf dem Commodore 64 mit Epson-Drucker FX-80 und 
Görlitz-Interface. 

Das Programm beinhaltet folgende Funktionen: 

1. Umwandlung des Basic-Zeichens »/«in einen echten Bruch 
(siehe Bild 1, Beispiel 1). 

2. Umwandlung des Basic-Zeichens »t« in echte Potenz¬ 
schreibweise (siehe Bild 1, Beispiel 2). 

3. Umwandlung der Basic-Funktion »EXP(X)« in echte Expo- 
nentialschreibweise (siehe Bild 1, Beispiel 3). 

4. Umwandlung der Basic-Funktion »SQR(X)« in echte Wurzel¬ 
schreibweise (siehe Bild 1, Beispiel 4). 

5. Mischung von Bruch-, Wurzel-, Exponential- und Potenz¬ 
schreibweise (siehe Bild 1, Beispiel 5 bis 18). 

6. Beachtung der Klammerregeln (siehe Bild 1, Beispiel 8 bis 
12 ). 

7. Ausgabe des Bruchstrichs exakt auf der Höhe der ganzra¬ 
tionalen Funktionsterme. 

8. Einbindung in andere Programme ohne weiteres möglich, es 
muß nur die Funktion und die Druckposition übergeben wer¬ 
den. 

9. Nach Ende des Druckvorgangs befindet sich der Druckkopf 
auf der gleichen Höhe wie zu Beginn, genau hinter der ausge¬ 
druckten Funktion. Es können also in einer Reihe ohne Proble¬ 
me mehrere Funktionen ausgegeben werden. 

Soweit eine kurze Übersicht über die Fähigkeiten des Pro¬ 
gramms. Kommen wir nun zu einer Beschreibung des Pro- 
grammaufbaus (Tabelle 1). 

In den Zeilen 120 bis 1150 befindet sich ein Beispielpro¬ 
gramm. Es bewirkt einen Ausdruck der Beispiele aus Bild 1. 

Die Funktionen werden definiert und in G$(1) bis G$(18) 
festgehalten. In der sich anschließenden Schleife (Zeilen 
1040 bis 1130) werden nun nacheinander die Funktionen ein¬ 
mal in Basic-Schreibweise und durch den Aufruf des Unterpro¬ 
gramms (Zeile 1120) in exakter Schreibweise ausgegeben. 
Vor dem Aufruf des Unterprogramms werden in den beiden Va¬ 
riablen BB und F$ die zu übergebenden Informationen defi¬ 
niert (siehe Tabelle 2). Zum einen ist das der Abstand vom lin¬ 
ken Rand (hier 55) und zum anderen die Funktion selber (hier 
von G$(1) bis G$(18)). 

Das Beispielprogramm soll nur einen kurzen Überblick über 
die vielfältigen Möglichkeiten von »Formel-Druck« geben und 
demonstrieren, wie die vom Programm benötigten Informatio¬ 
nen zu übergeben sind. Wichtig ist in diesem Fall auch Zeile 
120. In F$(..) werden im Programm später die einzelnen Terme 
der zu druckenden Funktion abgelegt. Ist eine Funktion sehr 
lang, kann es leicht zu einer größeren Anzahl an Einzeltermen 
als 11 kommen. Um allen Eventualitäten vorzubeugen, ist es 
besser, F$ gleich genügend groß zu dimensionieren. Hier 
wurde der Wert 50 gewählt, aber auch eine kleinere Zahl reicht 
meistens aus und kann vom Anwender nach eigenem Willen 
eingesetzt werden. 

Ab Zeile 50000 beginnt nun das eigentliche Programm, die 
Routine zum Umwandeln der Basic-Funktionen mit sich an¬ 
schließendem Ausdruck. 


In Zeile 50170 ist zunächst einmal das sehr häufig benutzte 
Unterprogramm zum Auslesen eines Zeichens (in T$) aus der 
Funktion (FU$) angelegt. In den Zeilen bis 50400 werden nun 
die nötigen Anfangsbedingungen eingestellt. Das ist erstens 
in Zeile 50180 die Festlegung des Zeichensatzes für den 
Drucker (Groß-/Kleinschrift mit Zeilenabstand von sieben 
Punkten), in der für das Görlitz-Interface typischen Form. 
Zweitens die Definition der Sonderzeichen zum Wurzelaus¬ 
druck (das »&« wird zum Strich über den Zeichen und das »%« 
zum Wurzelzeichen). Schließlich werden noch die benötigten 
Variablen festgelegt und der Fettdruck eingeschaltet. 

In den Zeilen 50420 bis 50720 werden die beiden Basic- 
Befehlsworte EXP und SQR aus der Funktion eliminiert und 
durch für das Programm später verständliche Befehle ersetzt 
(Zeile 50550 und 50710). Durch die Verminderung von Lwird 
die sich verkürzende Funktionslänge berücksichtigt. 

Anschließend folgt der Test auf gebrochenrationale Funk¬ 
tion (Zeile 50780 bis 50850). Tritt in der zu druckenden Funk¬ 
tion ein Divisionszeichen auf, wird in Zeile 50980 verzweigt 
und die Funktion in ganzrationale und gebrochenrationale Ter¬ 
me zerlegt. Zu diesem Zweck werden zum einen die vor dem 
Bruchstrich (Zeile 50980 bis 51070) und zum anderen die 
hinter dem Bruchstrich (Zeile 51080 bis 51180) auftretenden 
Zeichen betrachtet. Als Abbruchkriterium gilt jeweils das erste 
»+«, »—« oder »'«-Zeichen, das nicht mehr zum Zähler oder 
Nenner gehört. In den Zeilen 51190 bis 51260 findet dann die 
Zuweisung der entsprechenden Einzelelemente in F$(SC) 
statt. Hierbei wird SC bei jedem neu hinzukommenden Term 
um eins erhöht. Nun wird in Zeile 51260 wieder nach 50780 
zurückgesprungen und der restliche Funktionsteil untersucht. 
Das geschieht so lange, bis alle Divisionszeichen abgearbeitet 
sind. Dann wird der restliche Teil in F$(SC) abgelegt und zur 
Ha., otschleife des Programms zurückgekehrt (Zeile 50910 
bis 50920). 

Diese Schleife beginnt in Zeile 51320. Mit jedem Durchlauf 
der Schleife wird ein in F$(SC) abgelegter Term aufgerufen, 
die jeweilige Druckposition festgelegt und der Fettdruck ge¬ 
setzt. 

Jeder einzelne Term wird in den Zeilen 51450 bis 51530 auf 
gebrochenrationale Funktion geprüft. Liegt eine vor, muß die¬ 
se in den Zeilen 51650 bis 51720 in Zähler und Nenner zer¬ 
legt werden. Während dieser Prozedur werden auch gleich die 
überflüssigen Klammern entfernt (Zeile 51680 und Zeile 
51720). Handelt es sich um einen ganzrationalen Funktions¬ 
teil, wird dieser in Zeile 51590 im Zähler abgelegt und der 
Nenner für spätere Kontrollen mit einem Leerstring belegt. 

Um hinterher beim Ausdruck ein exaktes Druckbild zu erhal¬ 
ten (Bruchstrich mit der richtigen Länge und Zähler und Nen¬ 
ner zentriert übereinander) muß die Verkürzung des Druckbil¬ 
des durch Potenzausdruck und Wegfall von einigen Zeichen 
durch die Eliminierung von SQR berücksichtigt werden. Das 
Ausmaß der Verkürzung wird in den Zeilen 51780 bis 52020 
berechnet. Bei jeder auftretenden Potenz verkürzt sich die 
Länge des Ausdrucks um 0,5 und durch Wegfall des Zeichens 
»t« um eine Druckposition. Dies wird jeweils für Zähler und 
Nenner getrennt in Zeile 51970 beziehungsweise 51980 
festgehalten. 

Die Verkürzung durch den Wegfall der Klammern beim Wur¬ 
zelausdruck wird jeweils in Zeile 52010 beziehungsweise 
52020 berücksichtigt. 

Die erhaltene Gesamtverkürzung ist in WO beziehungswei¬ 
se WU enthalten. Diese wird beim Umwandeln von Zähler und 
Nenner auf die gleiche Länge (Zeile 52030 bis 52050) mit 
einberechnet. Dadurch wird eine ordentliche Bruchschreib¬ 
weise gewährleistet. 

Ab Zeile 52110 beginnt die Druckroutine. Als erstes wird der 
Zähler jedes einzelnen Terms ausgegeben. Hierbei wird ein 
ganzrationaler Funktionsteil als Zähler mit dem Nenner als 
Leerstring betrachtet. Handelt es sich um einen gebrochenra- 
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120- 1150 

Beispielprogramm 

50180-50400 

Einstellung der Grundbedingungen; Definition der 


Sonderzeichen für den Wurzelausdruck 

50460 - 50560 

Umwandlung der Basic-Funktion EXP in die spä¬ 
ter zum Ausdruck benötigte Form 

50620 - 50720 

Umwandlung der Basic-Funktion SQR in die spä¬ 
ter zum Ausdruck benötigte Form 

50780 - 50920 

Test auf gebrochenrationale Funktion zur Faktor¬ 
zerlegung 

50980 - 51260 

Zerlegung in ganzrationale und gebrochenratlo- 
nale Funktionsterme 

51320 - 51390 

Schleife zum Ausdruck der einzelnen Terme 

51450 - 51530 

Test auf gebrochenrationale Funktion im Term 

51590 

Einstellen der Bedingungen für ganzrationalen 

Term 

51650-51720 

Zerlegung der gebrochenrationalen Funktion in 
Zähler und Nenner 

51780 - 52050 

Berechnung der Verkürzung von Zähler und Nen¬ 
ner durch Potenz- und Wurzelausdruck 

52110-52230 

Zähler drucken 

52280 - 52360 

Bruchstrich drucken 

52420 - 52520 

Nenner drucken 

52580 - 52850 

Potenzausdruck 

52910-53090 

Wurzelausdruck 

53150-53170 

Ende 

Tabelle 1. Programmbeschreibung »Förmeldruck« 


F$ 

Funktion, muß vom Hauptprogramm übergeben werden 
und liegt hinterher unverändert vor. 

BB 

Abstand vom linken Rand, muß vom Hauptprogramm 
übergeben werden und enthält hinterher die Position des 
Funktionsendes. 

. TS 

Einzelne Zeichen der Funktion 

FUS 

Funktion während der Bearbeitung 

F$(SC) 

Funktionsterme nach der Zerlegung 

SC 

Anzahl der Funktionsterme 

L 

Länge der Funktion 

ES 

Vergleichsvariable für EXP und SQR 

WR 

Zeichenzahl im Zähler (bei der Zerlegung) 

WV 

Zeichenzahl im Nenner (bei der Zerlegung) 

KL.EK 

Anzahl der offenen Klammerpaare 

LO 

Länge des Zählers 

LU 

Länge des Nenners 

OBS 

Zähler 

UBS 

Nenner 

Z 

Markierung für Zähler (Z = 1) oder Nenner (Z = 2) 

WO 

Stellenverkürzung für den Zähler durch Potenz- und Wur¬ 
zelausdruck 

WU 

Stellenverkürzung für den Nenner durch Potenz- und 
Wurzelausdruck 

AA 

Bruchstrichlänge 

M 

Stellenverkürzung für ganzrationale Funktion durch 

Potenz- und Wurzelausdruck 

WW 

Markierung für Wurzelausdruck 

WM 

Stellenverkürzung bei Wurzelausdruck 

E;G;l;J;0;Q;R;T;U;Y Zählvariablen 

Tabelle 2. Variablenliste »Formeldruck« 


tionalen Funktionsteil, wird in Zeile 52130 das Papier um eine 
Position rückwärts transportiert, um später den Bruchstrich 
auf Höhe der ganzrationalen Funktion ausgeben zu können. 
Zum Ausdruck wird jedes Zeichen des Zählers untersucht, ob 
es sich um ein Potenz- oder Wurzelsymbol handelt. Ist dies der 
Fall, werden die entsprechenden Routinen zum Potenz- bezie¬ 
hungsweise Wurzelausdruck ausgeführt. Alle anderen Zei¬ 
chen werden sofort gedruckt. 

Handelt es sich beim ausgegebenen Term um eine ganzra¬ 
tionale Funktion, wird ein Rückwärtstransport des Papiers von 
einer Zeile durchgeführt und das Ende des Terms in BB festge¬ 
halten, damit die nächsten Funktionsteile direkt im Anschluß 
gedruckt werden können. 


Ansonsten kommt es zur Ausgabe des Bruchstrichs (Zeile 
52280 bis 52360). Die Länge des Bruchstrichs wird in AA 
festgehalten und aus den oben genannten Verkürzungswer¬ 
ten WO und WU und der Länge des Zählers und Nenners be¬ 
rechnet (Zeile 52300 bis 52310). 

Als letztes wird dann der Nenner ausgedruckt. Dies erfolgt 
auf die gleiche Weise wie beim Zähler. Auch hier wird am Ende 
ein Rücktransport des Papiers durchgeführt. Das Ende eines 
gebrochenrationalen Funktionsteils ergibt sich aus der Länge 
des Bruchstrichs und wird in BB gespeichert. 

In den Zeilen 52580 bis 53090 stehen die beiden Unter¬ 
programme zum Potenz- beziehungsweise Wurzelausdruck. 
Die Potenzausdruckroutine beginnt in Zeile 52580. Es wird 
die Superscript- und die Schmalschrift eingestellt. Dann wird 
jedes dem Potenzsymbol folgende Zeichen überprüft, ob es 
noch im Exponenten steht oder nicht. Als Abbruchkriterium 
gelten die gängigen mathematischen Kriterien (Zeilen 52650 
bis 52705). In den Zeilen 52720 bis 52750 wird überprüft, 
ob die Potenz unter der Wurzel steht, in diesem Fall ist WW = 
1, und der entsprechende Wurzelstrich wird ausgegeben. 
Nach Abarbeitung aller in Frage kommenden Zeichen wird 
wieder die Normalschrift und der Fettdruck eingeschaltet und 
zurück ins Hauptprogramm gesprungen (Zeile 52810 bis 
52850). Die Variable M (Zeile 52760) dient zur Berechnung 
der Verkürzung des Terms durch den Potenzausdruck und 
wird bei ganzrationalen Funktionen berücksichtigt. 

In der Wurzelausdruckroutine läuft im Prinzip das gleiche ab. 
Sie beginnt in Zeile 52910 und druckt zuerst das Wurzelsym¬ 
bol und über alle folgenden Zeichen den Wurzelstrich. Zur 
Ausgabe dieses Strichs wird der Druckkopf jeweils um ein Zei¬ 
chen zurück und einen Matrixpunkt nach oben bewegt und an¬ 
schließend das Sonderzeichen ausgegeben (Zeile 53020 bis 
53060) 

Den Auöohluß des Programms bilden die Zeilen 53150 bis 
53170. Hier wird der Drucker normiert, das heißt in den Ein¬ 
schaltzustand zurückversetzt, alle offenen Kanäle geschlos¬ 
sen und der Epson-Modus mit automatischem Zeilenvorschub 
eingestellt. 

(Patrick Bödeker/rg) 


Beispiel 

1 i 

1/X 

:t 

Beiapi»1 

2 « 

X~2 

- 

Bei spiel 

3 i 

EXP(X) 

e"’ 

Boi spiel 

4 i 

SQR(X ) 

/* 

Boi bpi ol 

i 

SQRlCXPtX)) 


Beispiel 

6 i 

EXP(SDR(X > > 

0 l«f. 

Beispiel 

7 i 

GOR < X (3«X*flM 

/ti («**■*' 

Bei spiel 

Q i 

1/<7«X'6*3«*X 2) 

1 


7*x*+3«x* 

Beispiel 



3»*»-2*k+4 



3*x*V2ex—12 

Bel spiel 

10 

3»X*'2-:’«X*4/<Ü*X 3*2»X-12> 





3»x*-2e><4-4 

Beispiel 

12 

3*X 2-2«X*4/5*X"3*2«X-12 

3"«>-2»**| •«‘.2-X-I2 


13 

<3»X ' <7« X-*4> > / (2«X A 2-7eX+2> 

3»x 


2«x'-7»«.2 

Bei spiel 

14 

EXP (X) +SQR < X 4*X 7.+X • 2> /7*X'> 14 

. Sa '+*•+>(* 

• - j - •«'♦14 

Beispiel 

IS 

< X *SQR <3*X*4> +BQR<X‘4*3) ) /7 

x /3m **/*< T T3 

7 

Beispiel 

16 

EXP(X) /SG>R(X 7»4*X> ►SGR<~eX>-l/X-'2 


Boinpiol 

17 

3/4« <7«X"?—3»X>M7*X ‘2> / < 14*X -3> 


Beispiel 

10 

B0R<X'23-4)+l/<3*X>-SQR<2*X 31+1/X 

•'S’"'* sz -*** ; 

Bild 1. Druckbeispiele »Formeldruck« (verkleinert) 
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Tips & Tricks 










10 REM ******************************** 

<060 > 

50310 

PRINTttl,CHR*(8);CHR*(16);CHR*(32);CH 


20 REM * 

* 

<069> 


R*(64);CHR*(128);CHR*(0); 

<047> 

30 REM * FORMEL-DRUCK 

* 

<085> 

50320 

PR I NT# 1, CHR* (27) ; " 8." ; CHR* (0 );"&&:"; CH 


40 REM # 

* 

<089 > 


R*(139); 

< 119> 

50 REM » 1985 BY PATRICK BOEDEKER 

# 

<160> 

50330 

PRINTttl,CHR*(128);CHR*(128);CHR*(128 


60 REM * NEUSTR. 11 

* 

<230> 


);CHR*(128);CHR*(128)j CHR*(128); 

<083> 

70 REM * 4350 RECKLINGHAUSEN 

* 

< 169> 

50340 

PRINT#1,CHR*(128);CHR*(128);CHR*(128 


80 REM # 

* 

< 129> 


);CHR*(128);CHR*(128);CHR*(0); 

<078> 

90 REM ******************************** 

< 140> 

50350 

PRINTttl,CHR* (27) ; "7." ; CHR* (1 > j CHR* (0) 


100 : 


<076> 


; 

<047> 

110 : 


<086> 

50360 

FU*=F* 

<063> 

120 DIM F*(50> 


< 153> 

50370 

SC=0s Y=0 

<047> 

130 DIM G*(18> 


< 174> 

50390 

PRINTttl,CHR* (27)'; "E"; 

<019> 

140 G*(l)="l/X" 


<057> 

50400 

L=LEN(FU*) 

<033> 

150 G*(2)="XT2" 


<061 > 

50410 

: 

<091 > 

160 G*(3)=“EXP(X> •' 


<224> 

50420 

REM *********************** 

<010> 

170 G*(4)="SQR(X>" 


<026> 

50430 

REM * EXPONENTIALFUNKTION * 

< 186> 

180 GS(5)="SQR(EXP(X))" 


< 171 > 

50440 

REM *********************** 

<032> 

190 G*(6)="EXP(SQR(X>>" 


< 198 > 

50450 

: 

< 133> 

200 G*(7)="SQR(Xf(3*X+4>)" 


<236> 

50460 

i=i 

< 116> 

210 G*(8)="l/(7#XT6+3*Xf2>" 


<245> 

50470 

T=I:GOSUB 50170 

<094> 

220 G*(9)="(3*XT2-2*X+4)/(5*Xt3+2*X-12>" 

<224> 

50480 

IF TS="E"THEN 50520 

< 1B4> 

230 G* (10) ="3*Xt2-2«X+4/ <5*X t3+2*X-12) ” 

<0B9> 

50490 

1 = 1 + 1 

< 180> 

240 GS <11)="(3*XT2-2*X+4)75*Xt3+2*X-12" 

< 148> 

50500 

IF I<=L THEN 50470 

<223> 

250 G*(12 > = "3* XT2-2*X+475*X t3+2*X-12" 


< 185 > 

50510 

GOTO 50620 

<021 > 

260 G*(13>="(3*Xt(7*X+4)>/(2*Xt2-7*X+2>" 

<085> 

50520 

FOR R=I TO 1+2 

< 170> 

270 G*(14)="EXP(X > +SQR<X t4+X t3+X t2> 77*X f 3+ 


50530 

T=R:GOSUB 50170 

<043> 

14" 


<222> 

50540 

ES=ES+TS:NEXT R 

<027> 

280 GS(15>="(X TSQR(3*X+4> +SQR(X t4+3>)/7" 

<222> 

50550 

IF ES="EXP"THEN FUS=LEFTS <FU*,I-1> +" 


290 G*(16)="EXP(X)/SQR(XT3+4*X)+SQR(3*X>-1 



ET"+RIGHTS(FUS,L-I-2>:L=L—1 

<146> 

7XT2" 


<220> 

50560 

ES="":GOTO 50490 

<066> 

300 GS(17) = "3/4*(7*Xt2—3*X> + (7*XT2)/(14*Xt 


50570 

: 

<253 > 

3) " 


<110> 

50580 

REM ****************** 

<074> 

310 G*(18)="SQR(X t23—4)+1/(3+X)-SQR <2*XT3) 


50590 

REM * WURZELFUNKTION * 

<209> 

+ 1/X" 


<010> 

50600 

REM ****************** 

<094 > 

1000 OPEN 1,4,8 


<100> 

50610 

: 

<037> 

1010 PRINT#1,"C30SPACE>BASIC C20SPACEI 


<207> 

50620 

i=i 

<020> 

1020 PRINT#1,"I4SPACEJF0RMEL-DRUCK" 


<135> 

50630 

T=I:GOSUB 50170 

<254> 

1030 PRINT#1:CLOSE 1 


<252> 

50640 

IF TS="S"THEN 50680 

<04B> 

1040 FOR A=1 TO 1B 


< 114> 

50650 

1 = 1 + 1 

<084> 

1050 OPEN 1,4 

<113>L 

506*, 

IF I<=L THEN 50630 

<103> 

1060 PRINT#1:PRINT#1 


<025> 

50670 

GOTO 50780 

<087> 

1070 PRINTttl,CHRS(27)" T" 


<211 > 

50680 

FOR R=I TO 1+2 

<074> 

1080 PRINTttl, " C2SPACE>^ISPIEL";A; " : 

C3SPA 


50690 

T=R:GOSUB 50170 

<205> 

CE> "; 


< 152> 

50700 

ES=ES+TS:NEXT R 

< 189> 

1090 PRINTttl,CHRS(27)" G"; 


<230> 

50710 

IF E*=“SQR"THEN FUS=LEFTS(FU*,1-1)+" 


1100 PRINTttl, GS CA); 


< 133> 


7." +RIGHTS (FU*,L-1-2 >: L=L-2 

<212> 

1110 CLOSE 1 


< 105> 

50720 

ES="":GOTO 50650 

<070> 

1120 BB=55:F*=GS(A>:GOSUB 50000 


<058> 

50730 

s 

< 159> 

1130 NEXT A 


< 134> 

50740 

REM ***************************** 

<205> 

1140 OPEN 1,4,4:PRINTttl,CHRS(12):CLOSE 1 

<014> 

50750 

REM »GEBROCHENRATIONALE FUNKTION* 

<142> 

1150 END 


<136> 

50760 

REM ***************************** 

<225> 

1160 : 


< 120> 

50770 

s 

< 199> 

1170 : 


<130> 

50780 

1=1:KL=0 

<007> 

50000 REM ***************************** 

<227> 

50790 

T=I:GOSUB 50170 

<160> 

50010 REM * 

* 

<018> 

50800 

IF TS="("THEN KL=KL+1 

<046> 

50020 REM * AUSGABE VON MATHEMAT I- 

* 

<254> 

50810 

IF TS=")"THEN KL=KL—1 

<056 > 

50030 REM * SCHEN FORMELN IN BRUCH-, 

* 

<153> 

50820 

IF T*="/"AND KL>0 THEN 50840 

<061 > 

50040 REM * WURZEL- UND POTENZ- 

* 

<208> 

50830 

IF T*="/"THEN 50980 

<014> 

50050 REM * SCHREIBWEISE AUF DEN 

# 

<202> 

50840 

1 = 1 + 1 

<020> 

50060 REM * DRUCKER FX-80 MIT 

* 

<071 > 

50850 

IF I<=L THEN 50790 

<091 > 

50070 REM * GOERLITZ INTERFACE. 

* 

<056> 

50860 

: 

<033 > 

50080 REM * 

* 

<088> 

50870 

REM ************************** 

< 107> 

50090 REM * DIE FUNKTION MUSS IN Ff, 

# 

< 158> 

50880 

REM * GANZRATIONALE FUNKTION * 

<075> 

50100 REM * DER ABSTAND VOM LINKEN 

* 

<085> 

50890 

REM ************************** 

< 127> 

50110 REM * RAND IN BB UEBERGEBEN 

* 

< 179> 

50900 

: 

<073> 

50120 REM * WERDEN 

* 

<058> 

50910 

SC=SC+1:F*(SC)=FU* 

<111) 

50130 REM ***************************** 

<101> 

50920 

GOTO 51320 

<097 > 

50140 : 


<075> 

50930 

: 

< 103> 

50150 : 


<085> 

50940 

REM ******************* 

<249> 

50160 GOTO 50180 


< 149> 

50950 

REM # FAKTORZERLEGUNG * 

<051 > 

50170 TS=MIDS(FUS,T,1)rRETURN 


< 112> 

50960 

REM ******************* 

<015> 

50180 OPEN 1,4:OPEN 2,4,10,"7" 


< 164> 

50970 

: 

<145> 

50230 s 


< 167> 

50980 

WR=I:KL=0 

< 154> 

50240 REM ********************* 


<216> 

50990 

WR=WR-1:T=WR:GOSUB 50170 

<221 > 

50250 REM * ZEICHENDEFINITION * 


<029> 

51000 

IF T*=")"THEN KL=KL+1 

< 120> 

50260 REM ********************* 


<236> 

51010 

IF T*="("THEN KL=KL—1 

< 130> 

50270 : 


<207> 

51020 

IF T*="+"AND KL=0 THEN 51070 

<018> 

50280 PRINTttl,CHRS(27)...CHRS..CHRS(0) 


51030 

IF T*=“-“AND KL=0 THEN 51070 

<029> 

;CHRS(0); 


<225> 

51040 

IF T*="*"AND KL=0 THEN 51070 

< 166> 

50290 PRINT# 1, CHR* (27) ; CHRS (0) ; "7.7." ; CH 




RS(139); 


<249> 




50300 PRINTttl,CHR* (0);CHRS(4);CHRS(4):CHRS 

Listing »Formeldruck«. Bitte beachten Sie die Eingabe- 

(3);CHR*(2);CHR*(4); 


<061 > 

hinweise auf Seite 6. 
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51050 IF WR=1 THEN WR=0:GOTO 51070 <216> 

51060 GOTO 50990 <098> 

51070 WR=I—WR—1 <082> 

51080 WV=I <122> 

51090 WV=WV+1:T=WV:GOSUB 50170 <09B> 

51100 IF T*="("THEN KL=KL+1 <092> 

51110 IF T*=")"THEN KL=KL—1 <102> 

51120 IF T*="+"AND KL=0 THEN WV=WV-l:GOTO 

51170 <172> 

51130 IF T*="-"AND KL=0 THEN WV=WV-1:GOTO 

51170 <183> 

51140 IF T*="*"AND KL=0 THEN WV=WV-l:GOTO 

51170 <064> 

51150 IF WV=L THEN 51170 <253> 

51160 GOTO 51090 <181> 

51170 WV=WV-I <072> 

51180 IF KL<0 THEN WV=WV-1 <201> 

51190 SC=SC+1 <215> 

51200 F*(SC)=LEFT*(FU*,I-1-WR> <119> 

51210 FU*=RIGHT*(FU*,L-I+WR+1> <253> 

51220 SC=SC+1 <247> 

51230 F*(SC)=LEFT*(FU*,WR+WV+1) <173> 

51240 F*(SC+1)=RIGHT*(FU*,L-I-WV) <217> 

51250 FU*=RIGHT*(FU*,L-I-WV>:L=LEN(FU*> <068> 
51260 GOTO 50780 <171> 

51270 : <191> 

51280 REM ************ <222> 

51290 REM * SCHLEIFE * <011> 

51300 REM ************ <242> 

51310 : <231> 

51320 Y=Y+1 <057> 

51330 IF Y>SC THEN 53150 <062> 

51340 IF F$(Y)=""THEN 51320 <247> 

51350 FU*=F*(Y> <163> 

51360 CLDSE 4:0PEN 4,4,4 <105> 

51370 PRINT#4,CHR*(27);CHRS(10B);CHR*(BB>; <240> 
51380 PRINT#4,CHR*(27);"E"; <017> 

51390 CLOSE 2:OPEN 2,4,10,"7" <079> 

51400 : <065> 

51410 REM *********** <214> 

51420 REM * BRUCH ? * <206> 

51430 REM *********** <234> 

51440 : <105> 

51450 L=LEN(FU*) <067> 

51460 I=1:KL=0 <181> 

51470 T=I:GOSUB 50170 <078> 

51480 IF T*="("THEN KL=KL+1 <220> 

51490 IF T*=")"THEN KL=KL—1 <230> 

51500 IF T*="/"AND KL>0 THEN 51520 <222> 

51510 IF TS="/"THEN 51650 <051> 

51520 1=1+1 <194> 

51530 IF I<=L THEN 51470 <239> 

51540 : <207> 

51550 REM ************** <045> 

51560 REM * KEIN BRUCH * <125> 

51570 REM ************** <065> 

51580 : <247> 

51590 OB*=FU*:UB*="":LO=L:BB=BB+L:GOTO 521 

10 <063> 

51600 s <011> 

51610 REM ************* <063> 

51620 REM * ZERLEGUNG * <032> 

51630 REM ************* <083> 

51640 : <051> 

51650 OB$="" <213> 

51660 FOR J=1 TO I-1:T=J:GOSUB 50170 <073> 

51670 OB*=OB*+T*:NEXT J:LO=LEN(OB*) <217> 

51680 IF LEFT*(OB*,1)="("AND RIGHT*(OB*.1) 

= " > " THEN OB*=M ID* (OB* , 2, LEN (OB*) -2 > : 
L0-L0-2 <162> 

51690 UB*=““ <021> 

51700 FOR J=I+1 TO LiT=J:GOSUB 50170 <024> 

51710 UB*=UB*+T*:NEXT J:LU=LEN(UB*) <104> 

51720 IF LEFT*(UB*,1)="("AND RIGHT*(UB*,1) 

= “>"THEN UB*=MID*(UB*,2,LEN(UB* >-2)I 
LU=LU-2 <042> 

51730 i <143> 

51740 REM **************** <233> 

51750 REM * POTENZANZAHL * <151> 

51760 REM **************** <253> 

51770 : <183> 

51780 Z=0:MO=0:MU=0 <008> 

51790 I=0:KL=0:Z=Z+1 <099> 

51800 1=1+1 <220> 


51810 IF Z=1 THEN T$=MID*(OB*.I,1) <089> 

51820 IF Z=2 THEN T*=MID*(UB*,I,1> <228> 

51830 IF T*= , 'T"THEN 51870 <109> 

51831 IF Z=1 AND T*="X"THEN W0=W0+2 <0B3> 

51832 IF Z=2 AND T*="7."THEN WU=WU+2 <143> 

51840 IF Z=1 AND I<LO THEN 51800 <137> 

51850 IF Z=2 AND I<LU THEN 51800 <203> 

51860 GOTO 52000 i <069> 

51870 IF Z=1 THEN T*=MID*(OB*,I,1) <149> 

51880 IF Z=2 THEN T*=MID*(UB*,1,1) <032> 

51890 IF T*="("THEN KL=KL+1 <120> 

51900 IF T*=")"AND KL=0 THEN 51800 <123> 

51910 IF T*=")"AND KL>0 THEN KL=KL—1 <190> 

51920 IF T*="+"AND KL=0 THEN 51800 <144> 

51930 IF T*="—"AND KL=0 THEN 51800 <155> 

51940 IF T*="*"AND KL=0 THEN 51800 <036> 

51945 IF T*="/"AND KL=0 THEN 51800 <171> 

.51950 1=1+1 <114> 

51960 IF T*=""THEN 52000 <241> 

51970 IF Z=1 THEN W0=W0+.5iIF T*=" f'THEN W 

0=W0+.5 <105> 

51980 IF Z=2 THEN WU=WU+.5:IF T*=" f'THEN W 

U=WU+.5 <054> 

51990 GOTO 51870 <123> 

52000 IF Z=1 THEN 51790 <053> 

52030 IF LO—WO+1.5<LU—WU THEN OB*=" "+OB*+ 

" ":L0=L0+2iD=1:GOTO 52030 <210> 

52040 IF D=1 THEN D=0:GOTO 52060 <193> 

52050 IF LU—WU+1.5<L0—WO THEN UB*=" "+UB*+ 

" ":LU=LU+2:GOTO 52050 <159> 

52060 s <219> 

52070 REM ******************* <109> 

52080 REM * ZAEHLER DRUCKEN * <230> 

52090 REM ******************* <129> 

52100 : <003> 

52110 M=0 <242> 

52120 PRINT#1,CHR*(27);“E"; <227> 

52130 IF UB*<>""THEN PRINT#4,CHR*(27);CHRt 
(106);CHR*(22);:CLOSE 3:0PEN 3,4,10, 

'‘7“ < 165> 

c 1:1=1 <«3> 

52150 l=J:T*=MID*(OB*,T,l> <005> 

52160 IF T*=" f'THEN E=0:GOSUB 52580:0=E:M= 

M+l <120> 

52170 IF T*="7."THEN Q=0: GOSUB 52910:0=0 <047> 

52180 IF S=1 THEN S=0:GOTO 52200 <201> 

52190 PRINT#1,T*; <0B2> 

52200 0=0+1 <230> 

52210 IF 0<=L0 THEN 52150 <055> 

52220 IF UB*=""THEN PRINT#1:PRINT#4,CHR*(2 
7);CHR*(106>;CHR*(21):CLOSE 3:0PEN 3 
,4,10,"7" <031> 

52225 IF UBS=""THEN BB=BB-INT(M-.5):GOTO 5 

!320 <058> 

52230 : <135> 

52240 REM *************** <057> 

52250 REM * BRUCHSTRICH * <154> 

52260 REM *************** <077> 

52270 : < 175> 

52280 CLOSE 3:0PEN 3,4,9,"7" <197> 

52290 PRINT#3 <214> 

52300 IF LO—W0< =LU—WU THEN AA=LU-WU+.5 <043> 

52310 IF LO—WO>=LU—WU THEN AA=L0-W0+.5 <207> 

52320 FOR 1=1 TO INT(AA) <149> 

52330 PRINT#3,"*";:NEXT I <072> 

52340 PRINT#3 <008> 

52350 CLOSE 3:0PEN 3,4,10,"7" <095> 

52360 BB=BB+INT(AA+1) <194> 

52370 : <019> 

52380 REM ****************** <096> 

52390 REM * NENNER DRUCKEN * <115> 

52400 REM ****************** <116> 

52410 : <059> 

52420 U=1:Z=2 <194> 

52430 T=U:T*=MID*(UB*,T,1) <176> 

52440 IF T*=" f'THEN E=U:GOSUB 52580:U=E <220> 

52450 IF T*=“%"THEN Q=U:GOSUB 52910:U=Q <107> 

52460 IF S=1 THEN S=0:GOTO 52480 <104> 

52470 PRINT#1,T*; <108> 

52480 U=U+1 <123> 

52490 IF U<=LU THEN 52430 <126> 


Listing »Formeldruck (Fortsetzung) 
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52500 

PRINTttl 

< 154> 

52510 

PRINT#4,CHR*<27>;CHR*(106);CHR*(40); 

<074> 

52520 

GOTO 51320 

< 175> 

52530 

: 

< 181 > 

52540 

REM ****************** 

<002> 

52550 

REM * POTENZAUSDRUCK # 

<066> 

52560 

REM ****************** 

<022> 

52570 

: 

<221 > 

52580 

CLOSE 3:OPEN 3,4,9,”7“ 

<243> 

52590 

PRINT#1,CHR*(27);"F"; 

<205> 

52600 

PRINT#1,CHR*(27 >;"S";CHR*(0);CHR*(15 



>5 

< 150> 

52610 

E=E+1 

< 18B> 

52620 

T=E 

<097> 

52630 

IF Z=1 THEN T*=MID*(OB*,T,l):AO=AO+. 



5 

<226> 

52640 

IF Z=2 THEN T*=MID*(UB*,T,1>:AU=AU+. 



5 

<251 > 

52645 

IF T*="7."THEN Q=E: PP=0: GOSUB 52910: E 



=Q:M=M+PP 

< 132> 

52650 

IF T*="("THEN EK=EK+1 

<084> 

52660 

IF T*=">"AND EK=0 THEN 52810 

<094 > 

52670 

IF T*=">"AND EK>0 THEN EK=EK—1 

<120> 

52680 

IF T*="+"AND "EK=0 THEN 52810 

< 115> 

52690 

IF T*="-"AND EK=0 THEN 52810 

< 126> 

52700 

IF T*= "*"AND EK=0 THEN 52810 

<007> 

52705 

IF T*="/"AND EK=0 THEN 52810 

< 142> 

52710 

PRINTttl,T*; 

<094> 

52720 

IF WW=1 THEN PRINT#4,CHR*(27>;CHR*(1 



06);CHR*(3);:CLOSE 3:0PEN 3,4,10,"7" 

<045> 

52730 

IF WW=1 THEN PRINT#1,CHR* (8 ); 

< 191 > 

52740 

IF WW=1 THEN PRINTttl,"«,"; 

< 162> 

52750 

IF WW=1 THEN PRINT#4,CHR*(27);CHR*(7 



4);CHR*(3) ; :CLOSE 3:0PEN 3,4,9,“7" 

<081 > 

52760 

M=M+.5 

<205> 

52770 

IF Z=1 AND E=LO THEN S=l:GOTO 52810 

<234> 

52780 

IF Z=2 AND E=LU THEN S=l:GOTO 52810 

<044> 

52790 

E=E+1 

< 114> 

52800 

GOTO 52620 

<057> 

52810 

PRINT#4,CHR*(27) ; CHR*(84) ; CHR* ( 18) ; 

<013> 

52820 

EK=0 _ 

<145> 

52830 

PRINTttl,CHR*(27) ; “E“; 

< 175> 

52840 

CLOSE 3:OPEN 3,4,10,“7" 

<077> 

52850 

RETURN 

<073> 

52860 

: 

<001 > 

52870 

REM ****************** 

<078> 

52880 

REM * WURZELAUSDRUCK * 

< 164> 

52890 

REM ****************** 

<098> 

52900 

: 

<041 > 

52910 

PRINT#1,"7.";: KL= 1 : Q=Q+1 : WW= 1 : WM=0 

<058> 

52920 

Q=Q+1 

<229> 

52930 

T=Q 

<090> 

52940 

IF Z=1 THEN T*=MID*(OB*,T,l) 

<214> 

52950 

IF Z=2 THEN T*=MID*(UB*,T,1> 

<097> 

52960 

IF T*="t"THEN E=0:GOSUB 52580:Q=E:WM 



=WM+1 

<058> 

52970 

IF S=1 THEN S=0:GOTO 52920 

< 168> 

52980 

IF T*="("THEN KL=KL+1 

<194> 

52990 

IF T*=")"THEN KL=KL—1 

<204> 

53000 

IF T*=")"AND KL=0 THEN S=l:GOTO 5307 



0 

<214> 

53010 

PRINTttl,T*; 

<142> 

53015 

PP=PP+.5 

< 175> 

53020 

PRINT#4,CHR*(27>;CHR*(106>;CHR*(3>;: 



CLOSE 3:OPEN 3,4,10,"7" 

<045> 

53030 

PRINTttl,CHR*(8); 

<047> 

53040 

PRINTttl,"«,"; 

< 149> 

53050 

PRINT#4,CHR*(27);CHR*(74);CHR*(3);:C 



LOSE 3:OPEN 3,4,10,"7" 

<227> 

53060 

GOTO 52920 

<160> 

53070 

WW=0 

<053> 

53080 

M=M+WM+2 

< 115> 

53090 

RETURN 

<059> 

53100 

: 

<243> 

53110 

REM ******** 

<080? 

53120 

REM * ENDE * 

< 168> 

53130 

REM ******** 

<1005 

53140 

: 

<027> 

53150 

PRINT#4,CHR*(27);:CLOSE 1:CLOSE 



2:CLOSE 3:CLOSE 4 

<059> 

53160 

OPEN 3,4,8,"12":CL0SE 3 

<188> 

53170 

RETURN 

< 139> 

© 64'<?f 


Listing »Formeldruck« (Schluß) 



Schreiben Sie 
Ihre eigenen 
Fehlermel¬ 
dungen 

Wer die öden Meldungen des Be¬ 
triebssystems wie »READY« oder 
»SYNTAX ERROR« satt hat, kann mit 
dem »Error-Changer« alle Fehleraus¬ 
gaben ändern und auf Diskette spei¬ 
chern. 

Denken Sie einmal an klassisches Basic-Programmieren: 
Drei Zeilen eintippen, Probelauf, Fehlermeldung, Korrektur, 
Probelauf... und so weiter. Und bei jedem Fehler erscheinen 
die sattsam bekannten, äußerst langweiligen Einheitsfehler¬ 
meldungen. 

Mit dem hier vorgestellten Programm »Error-Changer« ist es 
endlich möglich, den Wortlaut der Fehlermeldungen frei zu 
wähio,. (Bild 1 und 2). Nun, das ist immer noch nichts so Be¬ 
sonderes. Besonderes ist, daß der neue Text jeder Fehlermel¬ 
dung bis zu 80 (achtzig) Zeichen lang sein kann. 

Ob Sie den »UNDEFD STATEMENT ERROR« mit »QUO VA- 
DIS« oder mit »WOHIN, MEIN FREUND??« übersetzen, bleibt 
Ihrer Phantasie überlassen. Es schaut auch besser aus, wenn 
statt dem faden »READY«, zum Beispiel das warmstartsichere 
»ANDYS SOFTWARE IST IMMER EIN GEWINN« erscheint. 
Individualität ist Trumpf, Einheits-ROM ist out. 


LOAD"FEHLER.OBJ ",8,1 

LOAD"FEHLER.OBJ“,8,1 

SEARCHING FOR FEHLER.DBJ 

READING 

READY. 

SYS49152 

SEARCHING FÜR FEHLER.OBJ 

READING 

READY. 

SYS49152 

JETZT BIN ICH FERTIG. 

PRINT 1/0 

READY. 

PRINT 1/0 

7NICHT DURCH NULL TEILEN!!! 
JETZT BIN ICH FERTIG. 

CONT 

7DIVISI0N BY ZERO ERROR 
READY. 

CONT 

?DAS GEHT JETZT NICHT HEHR 
JETZT BIN ICH FERTIG. 

DIMA*<10000) 

?CAN ' T CONT INUE ERROF. 

READY. 

DIMA*<10000) 

7ICH HABE KEINEN PLATZ MEHR 
JETZT BIN ICH FERTIG. 

70UT OF MEMORY ERROR 

READY. 

Bild 1. So könnten zum 
Beispiel geänderte Fehler¬ 
meldungen aussehen 

Bild 2. Im Vergleich 
zu Bild 1: So sehen die 
Originalmeldungen aus 
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Tips & Tricks 


Das Programm ist kinderleicht zu bedienen: 

Error-Changer (siehe Listing) laden und starten. 

Es erscheint der Text der alten, englischen Fehlermeldung. 
Sollte sie nicht geändert werden, so wird sie normal mit der 
RETURN-Taste übernommen. Ansonsten wird der neue Text 
eingetippt. Die Länge des neuen Textes kann frei gewählt wer¬ 
den und ist nur durch die 80 Zeichen des INPUT-Befehls be¬ 
grenzt. Sollte der neue Text kürzer sein als der alte, so ist der 
Rest mit Leerzeichen zu überschreiben. Es kann auch die Ab¬ 
bruchmeldung BREAK und die READY-Meldung geändert 
werden. Jedoch erscheint, bedingt durch das Betriebssystem, 
nicht immer der geänderte Text. 

Nach Beendigung schaltet das Programm automatisch auf 
die neuen Fehlermeldungen um. Diese können auf Kassette 
oder auf Disk gespeichert werden, um die kreativen Ergüsse 
für die Nachwelt zu erhalten. 

Die neuen Fehlermeldungen werden mit 
LOAD "FEHLER.OBJ",8,1 (für Datasette ,1,1) 
geladen, mit SYS 49152 ein- und mit SYS 49226 ausgeschal¬ 
tet. Nach dem Laden sollten Sie unbedingt NEW eingeben. 

Nun zum Programmtechnischen. 

Es wird der »Vektor auf Fehlermeldungen« $0300-$0301 
(dezimal 768-769) auf das neue Programm »umgebogen«. 
Tritt ein Fehler auf (Fehlernummer größer 0), so stellt das Pro¬ 
gramm normale Ein- und Ausgabeverhältnisse her (Bildschirm, 
Tastatur). Die Fehlernummer bildet einen Vektor auf die Adres¬ 
se des ersten Buchstabens der entsprechenden Fehlermel¬ 


dung. Die Tdxte der Fehlermeldungen werden hintereinander 
gespeichert. Als Trennzeichen fungiert das siebte Bit des letz¬ 
ten Buchstabens. Ist es gesetzt, so weiß das Betriebssystem, 
daß dieser Buchstabe der letzte ist. Somit ist der erste Buch¬ 
stabe (Zeiger im Steuerprogramm) und der letzte definiert 
(siebtes Bit gesetzt). Jetzt muß die Meldung nur noch ge¬ 
schrieben werden. (Das Ganze kann mit dem K-Befehl des 
SMON angeschaut werden. Nicht vergessen: Auf Kleinschrift¬ 
modus umschalten!) 

Um Speicherplatz zu sparen, wurden im Programm die Feh¬ 
lermeldungen ohne das Wort »ERROR« gespeichert, da die¬ 
ses bei allen Meldungen gleich ist. Bei den neuen Meldungen 
muß der ganze Wortlaut angegeben werden, da bei manchen 
Scherzfehlermeldungen das Wort »ERROR« oder »FEHLER« 
stören würde. 

Beschreibung der wichtigsten Variablen: 

T$(l)=Text der alten und nach dem Überschreiben der neu¬ 
en Fehlermeldung. 

LV = Lesevektor. Liest alte Meldung aus dem ROM. 

SA = Schreibvektor. Schreibt neuen Text in das RAM. 

VA = Schreibvektor auf Lo/Hi-Adressen des ersten Buchsta¬ 
bens der neuen Meldung. 

SA und EA = Start- und Endadresse als Parameter für den 
SAVE-Befehl 

FZ = Fehlerzähler (identisch mit der betriebssysteminternen 
Fehlernummer!) 

(Andreas Knipp/tr) 


110 

REM ***************************** 

< 122 > 

520 

POKE SV+J,13:A=SV:GOSUB 690:POKE 49220 


130 

REM * * 

<179> 


, ALX:POKE 49222, AH'/.: POKE SV+J+ 1,0 

<0B5> 

140 

REM »ERROR-CHANGER* 

<229> 

530 

SYS 49152 

<080> 

150 

REM * * 

<199> 

540 

INFL"' ‘SPEICHERUNG J/N";S*:IF S*="N"THE 


151 

REM * C 64 » 

<066> 


N END 

<008> 

152 

REM * * 

<201 > 

550 

IF S*< >"J"THEN 540 

<069> 

160 

REM * BY ANDREAS KNIPP * 

< 105> 

560 

SA=49152:AE=SV+J+2 

<207> 

170 

REM * * 

<219> 

570 

PRINT"GERAETENUMMER" ; 

<238> 

180 

REM ***************************** 

< 192> 

580 

PRINT"C3SPACEJFL0PPY = Z.B.C2SPACEJ8C2 


190 

REM 

<252> 


4SPACE >DATASETTE =<4SPACE>1"; 

<196> 

200 

POKE 53280, 4 :POKE 53281,6:GOTO 250 

< 124> 

590 

INPUT DN > 

< 110 > 

250 

PRINT"CCLR,WHITE JWAEHLBARE FEHLERMELDU 


600 

A*="@: FEHLER. OBJ" : A7.=LEN (A*> 

<056> 


NGEN BY A.KNIPP KPS":DIM T*(40):FZ=1 

< 197> 

610 

A=681: GOSUB 690: POKE 183,A7.:P0KE 1B7,A 


260 

T*(30)="BREAK ERROR" 

< 104> 


LX: POKE 188, AH’/. 

< 122 > 

270 

T*(31)="READY.":HI=256 

<150> 

620 

FOR 1=1 TO AX:POKE 680+1,ASC(MID*(A*,I 


280 

FOR 1=49152 TO 49232 

<139> 


)):NEXT:REM FILENAME 

<204> 

300 

READ X:POKE I,X:NEXT 

<225> 

630 

A=SA: GOSUB 690: POKE 251 ,AL7.: POKE 252, A 


310 

POKE 768,139:POKE 769,227:REM FEHLERME 



H7.: REM STARTADRESSE 

<252> 


LDUNGEN AUF ROM STELLEN. 

< 202 > 

640 

A=AE: GOSUB 690: POKE 781, AL7.: POKE 782, A 


320 

LV=41372: SV=49293: VA=49233 

< 210 > 


HX:REM ENDADRESSE 

<109> 

330 

FOR LV=41373 TO 41767:REM EINLESEN DER 


650 

POKE 186,DN: POKE 780,251-.SYS 65496: REM 



ALTEN FEHLERMELDUNGEN 

<043> 


SAVE:DN = DEVICENUMMER 

<027> 

340 

T*(FZ)=T*(FZ)+CHR*(PEEK(LV)AND 127):IF 


660 

PRINT"CWHITE>SPEICHERUNG ERFOLGTE UNTE 



PEEK(LV)<127 THEN 370 

<2367 


R "CHR*(34)"FEHLER.OBJ"CHR*(34) 

<133> 

350 

T*(FZ)=T*(FZ)+" ERROR":PRINT T*(FZ> 

<052> 

670 

PRINT"ABSOLUT LADEN UND MIT SYS 49152 


360 

FZ=FZ+1 

< 100 > 


STARTEN" 

<254> 

370 

NEXT LV:FZ=FZ+1:REM PLATZ FUER READYME 


680 

END 

< 174> 


LDUNG 

<061 > 

*690 

AHX=A/HI:ALX=A-AHX*HI 

<231 > 

380 

FOR 1=1 TO FZ:REM MOEGLICHKEIT DER AEN 


700 

RETURN 

<250> 


DERUNG 

<126> 

710 

DATA 169,11,160,192,141,0,3,140,1,3,96 


390 

PRINT"C2RIGHT >"T*(I>CHR*(13)"CUP >" 5 :IN 



,138 

< 111 > 


PUT T*(I> 

<152> 

720 

DATA 16,3,76,67,192,10,170,189,79,192, 


400 

IF LEN(T*(I>><2 THEN 390 

< 146> 


133,34 

< 186> 

410 

NEXT I 

<240> 

730 

DATA 189,80,192,133,35,32,204,255,169, 


420 

INPUT"ALLES RICHTIG J/N";AR*:IF AR*<>" 



0,133,19 

< 00 B> 


J"THEN 380 

<054> 

740 

DATA 32,215,170,32,69,171,160,0,177,34 


430 

FOR J=1 TO FZ—1:REM NEUE FM IN DEN SPE 



,72,41 

<019> 


ICHER SCHREIBEN 

< 109> 

750 

DATA 127,32,71,171,200,104,16,244,32,1 


440 

FOR 1=1 TO LEN(T*(J>>-1 

<031 > 


22,166,164 

<132> 

450 

POKE SV+I—1,ASC(MID*(T*(J),1,1)) 

<061 > 

760 

DATA 58,200,240,3,32,194,1B9 , 169,187,1 


460 

NEXT I 

<034> 


60,194,76 

<174> 

470 

POKE SV+I-1,ASC(MID*(T*(J>,1,1)>+128 

< 126> 

770 

DATA 120,164 

<009> 

480 

A=SV: GOSUB 690: POKE VA+1, AH'/.: POKE VA,A 


780 

DATA 169,139,160,227,76,4,192 

< 192> 


L X 

< 187> 




490 

VA=VA+2:SV=SV+I:NEXT J 

<03B> 




500 

POKE SV,13 

<189> 

B 64 er 


510 

FOR J=1 TO LEN(T*(31)>:POKE SV+J,ASC(M 



Listing »Error Changer«. 


ID*(T*(31),J,1>>:NEXT:REM READY 

< 167> 


Beachten Sie die Eingabehinweise auf Seite 6. 
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Kopierschutz 

ohne 

Read Error 

Read Errors sind für die meisten Ko¬ 
pierprogramme kein Problem, deshalb 
wird hier ein anderer Weg beschritten. 
Basic- und Maschinen-Programme 
sind nur dann lauffähig, wenn vor dem 
Start ein Paßwort eingegeben wird. 

Das Programm ist in Maschinensprache geschrieben und 
belegt den Speicherbereich von SCFOO bis $CF46. Der be¬ 
reich von SCF47 bis $CFFF ist für ein Paßwort reserviert, das 
eingegeben werden muß, nachdem der zuvor abgetippte La¬ 
der (siehe Listing) mit RUN gestartet wurde. Von nun an wer¬ 
den alle Programme, die auf Diskette gespeichert werden, 
beim Speichern codiert. Solange der Computer eingeschaltet 
bleibt, können Programme, die mit dem eingegebenen Paß¬ 
wort gespeichert wurden, ganz normal geladen werden. Pro¬ 
gramme, die unter einem anderen Paßwort gespeichert wur¬ 
den lassen sich zwar auch noch Laden, sind aber nicht mehr 
lauffähig. Sollen solche Programme gestartet werden, muß 
dem Computer vor dem Laden das neue Paßwort übermittelt 
werden. Dies geschieht mit einem kleinen Basic-Programm: 
10 INPUT C$ : C=LEN(C$) 

20 FORl=1TO C 

30 POKE 53072+1, ASC(MID$ (C$,1,1)) 

40 NEXT 

50 POKE 13*1613—1,C 
60 END 


10 REM ************************ 


<063> 

15 REM * * 


<064> 

20 REM * » CODE S/L LADER << * 


< 115> 

25 REM * * 


<074> 

30 REM * MICHAEL DI ETZ * 


<100> 

35 REM * 3303 VECHELDE * 


<217> 

40 REM * BERLINER STR. 23 * 


< 115> 

45 REM * TEL.:05302/5991 * 


<072> 

50 REM * * 


<099> 

55 REM ************************ 


< 108> 

60 : 


<036> 

65 : 


<041 > 

100 POKE 53280,6.-POKE 53281,6:POKE 646,14 

< 158> 

110 PRINT"<CLR>" 


<098> 

120 FOR 1=0 TO 41:READ A:POKE B2B+I,A:NEXT 

<211 > 

130 SYS B28 


<231 > 

140 FOR 1=52992 TO 53061:READ A 


<089> 

150 POKE I,A:NEXT 


<247> 

160 INPUT"C2D0WN,2SPACE>C0DE ":C*:C=LEN <C# 


) 


<2251 

170 FOR 1=1 TO C 


<021 > 

180 POKE 53072+1,ASC(MID*(C*,1,1)):NEXT 

< 165> 

190 POKE 62954,32:POKE 62955,00:POKE 

62956 


,207 


<002> 

200 POKE 62626,32:POKE 62627,00:POKE 

62628 


,207 


< 105> 

210 POKE 62731,76:POKE 62732,12:P0KE 

62733 


,207 


<229> 

220 POKE 63019,76:POKE 63020,30:POKE 

63021 


,207 


<042> 


230 

POKE 

13*16t3—1,C:POKE 1,53:NEW 

<183> 

240 

: 


<216> 

250 

■ 


<226> 

260 

DATA 

169,0,133,95,133,90,133,88,169 

<059> 

270 

DATA 

32 

160,133,96,169,192,133,91,133,89, 

<094> 

280 

DATA 

191,163,169,0,133,95,133,90,133 

<103> 

290 

DATA 

3,89 

88,169,224,133,96,169,0,133,91,13 

< 119> 

300 

DATA 

76,191,163 

<246> 

310 

s 


<032> 

320 

3 


<042> 

330 

DATA 

142,253,207,162,1,142,254 

<222> 

340 

DATA 

207,174,253,207,96,32,46,207 

<229> 

350 

DATA 

141,252,207,56,173,253,207 

< 028 > 

360 

DATA 

237,252,207,164,147,76,14 

<069> 

370 

DATA 

245,141,252,207,32,46,207 

<243> 

3B0 

DATA 

24,109,252,207,32,221,237 

< 196> 

390 

DATA 

76,46,246,206,254,207,208 

<100> 

400 

DATA 

6,173,255,207,141,254,207 

< 186> 

410 

DATA 

142,253,207,174,254,207,189 

< 166> 

420 

DATA 

80,207,174,253,207,96 

<208 > 


Listing. Lader zum Programm »Kopierschutz ohne Read Er¬ 
ror«. Bitte beachten Sie die Eingabehinweise auf Seite 6. 


Soll ein normales, also uncodiertes, Programm geladen oder 
gespeichert werden, so muß man den Codierermit POKE 1,55 
ausschalten. Mit POKE 1,53 läßt er sich wieder einschalten. 

(Michael Dietz/ah) 
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Tape Save — 
Maschinen¬ 
programme 
einfach 
gespeichert 

Der Save-Befehl des C 64 erlaubt es 
leider nicht, bestimmte Speicherberei¬ 
che und damit Maschinenprogramme 
abzuspeichern. Mit »Tape Save« kön¬ 
nen Sie dies sogar im Dialogverfahren 
und sowohl auf Diskette als auch auf 
Datasette. 

Wer kennt das Problem nicht: Man hat einen DATA-Lader für 
ein Maschinenprogramm und kann das Programm wegen ei¬ 
nes fehlenden Monitors nicht direkt abspeichern! Hier setzt 
nun unser Programm »Tape Save« ein, das es auch Anfängern 
ermöglicht, im Dialogverfahren Maschinenprogramme auf 
Kassette oder Diskette zu speichern. 

»Tape Save« (siehe Listing) tippen Sie bitte mit dem MSE ab. 
Es kann dann mit »LOAD 'TAPE SAVE” ,1,1« beziehungsweise 


»..,8,1« geladen werden. Gestartet wird »Tape Save« mit SYS 
49152. Vor dem Start müssen Sie noch NEW eingeben, um 
keinen »OUT OF MEMORY ERROR« zu erhalten. 


Bedienungshinweise 


Als erstes wird nach dem Namen des zu speichernden Pro¬ 
gramms gefragt. Der Computer akzeptiert höchstens 16 Zei¬ 
chen, verlangt aber mindestens ein Zeichen, sonst wird die 
Eingabe abgelehnt. Danach gibt man Start- und Endadresse in 
hexadezimaler Form ein. Dabei erscheint allerdings kein Cur¬ 
sor, die eingetippten Werte werden aber angezeigt. Nach Ein¬ 
gabe der beiden vierstelligen Zahlen fährt das Programm mit 
der Frage nach der Nummer des Peripheriegerätes fort. Auch 
hier wird nur eine gültige Eingabe akzeptiert, wobei »1« für Da¬ 
tasette und »8« für das Diskettenlaufwerk einzugeben ist. Da¬ 
nach startet »Tape Save« den Speichervorgang. Nach dem 
Speichern ermöglicht es dann dem Benutzer, mittels der Funk¬ 
tionstasten den weiteren Programmablauf zu gestalten. Man 
kann den Speichervorgang wiederholen, das Programm ab¬ 
brechen oder aber nochmals beginnen, um ein weiteres Pro¬ 
gramm zu speichern. 

Hier noch einige wichtige Bedienungshinweise: 

Diskettenbenutzer müssen aufpassen, wenn sie mit der 
Funktionstaste »F3« nochmals ohne Parameteränderung spei¬ 
chern wollen. Wurde die Diskette nicht gewechselt, erhält man 
einen »FILE EXISTS ERROR«, weil auch der Filename nicht ge¬ 
ändert wird. 

Der wichtigste Nachteil von Tape Save« ist seine Lage im 
Speicher: Es liegt von $c000 bis $c369. Das bedeutet, daß 
Programme, die im $c-Bereich liegen, auch nicht von »Tape Sa¬ 
ve« gespeichert werden können. Ebenso können keine 
Maschinensprache-Programme, die sich im Kassettenpuffer 
befinden, auf Kassette gespeichert werden. Hier ist nur die 
Speicherung auf Diskette möglich. 

(Johannes Rest/bs) 


Programm 

tape 

save 


C000 

c369 

c 130 


00 

bd 

2 e 

C0 

9d 

f0 

04 

e0 

e6 

C278 

: 

ff 

85 

fc 

a6 

fb 

e0 

01 

f0 

fa 


















4c 





C280 


05 

e6 

fb 

4c 

76 

c2 

ad 

78 

a6 












C loö 


0C 

T 0 

04 

eB 

51 

c 1 

av 

B.5 













C140 

: 

06 

85 

d6 

a9 

0e 

85 

d3 

20 

90 

C28B 

: 

05 

c9 

31 

f0 

07 

c9 

38 

f0 

5b 

C000 

: 

4c 

c9 

C0 

54 

41 

50 

45 

20 

d7 

c 148 

: 

10 

e5 

20 

68 

cl 

a 2 

00 

bd 

0d 

c290 

: 

03 

4c 

92 

cl 

38 

e9 

30 

8d 

45 

C008 

: 

53 

41 

56 

45 

20 

56 

31 

2b 

10 

C150 

: 

77 

02 

c9 

00 

f0 

f 9 

c9 

0d 

5b 

C298 


fc 

cf 

a9 

0e 

85 

d6 

a9 

00 

5b 

c0i0 

: 

30 

28 

43 

29 

20 

42 

59 

20 

04 

C158 

: 

f0 

f0 

9d 

fe 

04 

9d 

B4 

cf 

68 

c 2 a 0 

: 

85 

d3 

20 

10 

e5 

ae 

fc 

cf 

80 

C010 

: 

4a 

4f 

48 

41 

4e 

4e 

45 

53 

57 

c 160 

s 

eB 

e0 

04 

f0 

6b 

4c 

4f 

Cl 

bl 

c 2 a 8 

: 

20 

ba 

ff 

a 2 

00 

a 0 

cf 

a5 

16 

C020 

: 

20 

52 

45 

53 

54 

46 

49 

4c 

5a 

C16B 

: 

a 2 

00 

a9 

00 

9d 

77 

02 

eB 

e4 

c2b0 

: 

b7 

20 

bd 

ff 

ae 

f 9 

cf 

ac 

3a 

C028 

: 

45 

4e 

41 

4d 

45 

3a 

53 

54 

aa 

c 170 

; 

B0 

05 

d0 

fB 

85 

c6 

60 

a9 

89 

c2bB 

: 

f 8 

cf 

86 

fb 

B4 

fc 

a9 

fb 

88 

C030 

: 

41 

52 

54 

41 

44 

52 

45 

53 

6a 

c 17B 

: 

20 

a 2 

00 

9d 

fe 

04 

e8 

B0 

13 

c 2 c 0 

: 

ae 

fb 

cf 

ac 

fa 

Cf 

20 

d8 

56 

C038 

: 

53 

45 

3a 

45 

4e 

44 

41 

44 

fa 

c 1B0 

: 

05 

d0 

fa 

60 

C0 

01 

f0 

05 

19 

c 2 cB 

: 

ff 

20 

44 

e5 

a 2 

00 

bd 

46 

53 

C040 

: 

52 

45 

53 

53 

49 

3a 

55 

45 

7a 

c 188 

: 

a0 

00 

a 2 

01 

60 

a 0 

00 

a 2 

41 

c 2 d 0 

s 

C0 

9d 

00 

04 

eB 

C0 

15 

f0 

ab 

C048 

: 

42 

45 

52 

94 

52 

'l 1 

47 

55 

43 

Cl90 

: 

02 

60 

4c 

67 

c 2 

a 2 

00 

bd 

7f 

c2dB 

: 

03 

4c 

ce 

c2 

a 2 

00 

bd 

6a 

03 

C050 

: 

4e 

47 

20 

42 

45 

45 

4e 

44 

d2 

c 198 


e4 

cf 

c9 

41 

b0 

0B 

c9 

30 

01 

c2g0 

: 

C0 

9d 

50 

04 

e8 

B0 

09 

f0 

9f 

C058 

: 

45 

54 

2e 

47 

45 

52 

41 

45 

b2 

cla0 

: 

b0 

03 

4c 

84 

cl 

c9 

3a 

90 

ea 

c2eB 

: 

03 

4c 

de 

c 2 

a 2 

00 

bd 

73 

29 

C060 

: 

54 

45 

41 

44 

52 

45 

53 

53 

73 

claB 


0a 

4c 

a 2 

cl 

c9 

47 

90 

10 

f 2 

c 2 f 0 

: 

C0 

9d 

78 

04 

eB 

e 0 

13 

f0 

el 

C06B 

: 

45 

3a 

46 

31 

20 

2d 

20 

45 

f9 

clb 0 

: 

4c 

a2 

Cl 

38 

■9 

30 

95 

fb 

33 

c 2 f 8 

: 

03 

4c 

ee 

c2 

a 2 

00 

bd 

a3 

9e 

C070 

: 

4e 

44 

45 

46 

33 

20 

2d 

20 

24 

clbB 


e0 

03 

f 0 

10 

eS 

4c 

97 

Cl 

2b 

c300 

: 

C0 

9d 

a 0 

04 

eB 

e0 

16 

f0 

07 

C07B 

s 

43 

4f 

50 

59 

20 

53 

41 

4d 

de 

c lcB 

: 

c9 

00 

f0 

ec 

38 

e9 

37 

95 

3b 

C30B 

: 

03 

4c 

fe 

c 2 

20 

87 

ea 

a5 

7e 

C080 

: 

45 

20 

46 

49 

4c 

45 

49 

4e 

41 

clcB 

: 

fb 

4c 

b8 

cl 

60 

4c 

4a 

cl 

65 

c310 

: 

cb 

c9 

04 

f0 

0b 

c9 

05 

f0 

d4 

C088 

s 

53 

45 

52 

54 

20 

4e 

45 

57 

d5 

cld0 

: 

20 

68 

cl 

20 

95 

cl 

e0 

03 

Ba 

C31B 

: 

0b 

c9 

06 

f0 

0d 

4c 

0C 

c3 

92 

C090 

: 

20 

44 

49 

53 

4b 

20 

49 

46 

f 7 

cldB 

: 

b0 

04 

B0 

01 

f0 

ef 

a5 

fb 

00 

c320 

: 

20 

44 

e5 

60 

ad 

fc 

cf 

4c 

82 

C098 

: 

20 

4e 

45 

43 

45 

53 

53 

41 

58 

cle0 

: 

20 

30 

c 2 

18 

65 

fc 

8d 

fB 

32 

c328 

: 

2d 

c3 

4c 

c9 

C0 

a 2 

00 

c9 

38 

c0a0 

: 

52 

59 

2e 

46 

35 

20 

2d 

20 

3d 

cleB 

: 

cf 

a5 

fd 

20 

30 

c 2 

18 

65 

51 

c330 

: 

01 

f0 

31 

bd 

86 

C0 

9d 

18 

c 2 

c0aB 

: 

43 

4f 

50 

59 

20 

41 

4e 

4f 

b6 

Clf0 

: 

f e 

Bd 

+ 9 

cf 

4c 

f 7 

cl 

a9 

0 c 

c33B 

: 

05 

eB 

e0 

ld 

f0 

03 

4c 

33 

4c 

c 0 b 0 

: 

54 

48 

45 

52 

20 

46 

49 

4c 

b6 

cif 8 

: 

06 

85 

d3 

aV 

0 / 

B5 

d6 

20 

23 

C340 

: 

C3 

•9 

0 a 

85 

d6 

20 

10 

b5 

86 

c0b8 

: 

45 

12 

3g 

3e 

3b 

20 

d2 

45 

18 

c200 

s 

10 

s5 

a 2 

00 

bd 

3b 

C0 

9d 

9f 

C34B 

: 

a2 

00 

bd 

b9 

C0 

20 

d2 

ff 

e9 

C0C0 

: 

54 

55 

52 

4e 

20 

3c 

3c 

3c 

6b 

c 208 

: 

18 

05 

e0 

0a 

f0 

04 

e8 

4c 

BB 

c350 

: 

eB 

B0 

10 

f0 

03 

4c 

4a 

c3 

0B 

C0c8 

: 

92 

20 

44 

e5 

a9 

0 e 

20 

d2 

69 

c 210 

: 

04 

c2 

20 

68 

cl 

a 2 

00 

bd 

37 

C358 

: 

20 

87 

ea 

a5 

cb 

c9 

01 

f0 

9c 

C0d0 

: 

ff 

a 2 

00 

bd 

03 

c 0 

9d 

00 

85 

C218 

: 

77 

02 

c9 

00 

f0 

f 9 

c9 

0d 

23 

C360 

: 

03 

4c 

5B 

c3 

a2 

00 

4c 

9a 

aB 

C0d8 

: 

04 

e 0 

0d 

f0 

04 

eB 

4c 

d3 

0 e 

c220 

: 

f0 

f0 

9d 

24 

05 

9d 

e4 

cf 

e5 

C368 

: 

c 2 

ff 

00 

ff 

00 

ff 

00 

ff 

2a 

c0e0 

s 

C0 

a2 

00 

bd 

11 

C0 

9d 

28 

87 

c22B 

: 

e8 

B0 

04 

f0 

08 

4c 

17 

c2 

64 












c0e8 

: 

04 

G0 

13 

+ 0 

04 

eB 

4c 

B3 

C0 

c230 

: 

0 a 

0a 

0 a 

0 a 

60 

20 

68 

cl 

2f 












C0f0 

: 

C0 

a 2 

00 

bd 

25 

C0 

9d 

a 0 

c9 

c23B 

: 

a0 

01 

20 

95 

Cl 

e0 

02 

f0 

21 












C0f 8 

: 

04 

e0 

08 

f0 

04 

eB 

4c 

f 3 

2d 

c240 

: 

b6 

a5 

fb 

20 

30 

c 2 

18 

65 

10 












C100 

cl 08 

: 

C0 

d6 

a9 

20 

0a 

10 

85 

e5 

d3 

a9 

a9 

00 

04 

85 

B5 

fb 

6e 

58 

c24B 

c250 

: 

fc 

c2 

Bd 

18 

fa 

65 

cf 

fe 

a5 

Bd 

fd 

fb 

20 

cf 

30 

a2 

ee 

95 

Das Listing »Tape Save« 




c 1 1 0 

: 

20 

cf 

ff 

a6 

fb 

c9 

0d 

f0 

11 

c258 

: 

00 

bd 

5b 

C0 

9d 

68 

05 

E0 

19 

muß mit dem MSE 






cl 18 

cl20 

: 

: 

0d 

eB 

9d 

B6 

d0 

fb 

cf 

4c 

60 

10 

0f 

Cl 

f0 

e 0 

0d 

01 

86 

68 

c260 

C268 

: 

0 e 

00 

f0 

86 

04 

fb 

B8 

a9 

4c 

09 

59 

85 

C2 

d6 

a2 

a9 

e4 

4b 

eingegeben werden. Beachten Sie 

cl28 

* 

b0 

03 

4c 

19 

Cl 

86 

b7 

a 2 

05 

C270 

8 

10 

85 

d3 

20 

10 

e5 

20 

Cf 

8 c 

die Eingabehinweise auf Seite 6. 


WM 
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Tips & Tricks 


Linker 64 — 
Schluß 
mit dem 
Nachladen 

Wenn Sie öfters mehrere Maschinen¬ 
programme gleichzeitig im Speicher 
haben wollen und es leid sind, jedes 
Programm einzeln nachzuladen, dann 
ist der Linker das ideale Arbeitswerk¬ 
zeug für Sie. 

Seine Anwendungen sind vielfältig: vom einfachen Basic- 
Start-Generator für Maschinenprogramme bis zum Verketter 
(= Linker) von mehrteiligen Spielen. Das Endprodukt, also das 
generierte Programm, kann dann ganz einfach auch von der 
Datasette geladen werden, was bisher an den Diskettenlade¬ 
routinen der Programme scheiterte. Diese Laderoutinen müs¬ 
sen natürlich vorher entfernt werden. 

Die Bedienung ist denkbar einfach: Diskette mit den einzel¬ 
nen Programmen nehmen, Linker 64 (siehe Listing) starten 
und bedienen. Es wird eine lauffähige Version generiert, die 
man mit LOAD und RUN starten kann. 

Die einzige Denkarbeit besteht in der Überlegung, in wel¬ 
cher Reihenfolge die Programme wieder an ihre ursprüngli¬ 
chen Adressen verschoben werden sollen. Das ist wichtig, da 
sonst während des Verschiebevorgangs bereits verschobene 
Programmteile, die noch nicht verschobenen überschreiben 
könnten. Im allgemeinen wird man zuerst die Maschinenrouti¬ 
nen verschieben, die an die höchste Adresse geschrieben 
werden sollen. 

Die Arbeitsweise des Linkers 

Der Linker generiert drei Programmteile, die am Ende verket¬ 
tet werden: Teil »S« besteht aus der Basic-Zeilennummer, dem 
SYS-Befehl und dem anschließenden Text, gleich einer REM- 
Zeile. Teil »V« besteht aus dem generierten Verschiebepro¬ 
gramm. Für Interessierte sei gesagt, daß bei einer Verschie¬ 
bung nach oben die betriebssysteminterne Blockverschiebe- 
routine ($a3bf) angesprungen wird. Bei Transfer nach unten 
kommt eine »handgestrickte« Routine zur Anwendung. Teil »P« 
enthält schließlich die aneinandergehängten Maschinenpro¬ 
gramme. 

Der Linker kennt zwei Betriebsarten: entweder Verschiebe¬ 
teil vor oder nach den gelinkten Programmen. Im Modus »0« ist 
die Reihenfolge der drei Teile S-V-P, im Modus »1« ist sie S-P-V. 
Der Modus »0« (LoMem-Modus) wird fast immer benutzt, da 
nur sehr selten Programmteile im Basic-Startbereich (2049 = 
$0801) laufen. Sollte dies aber doch der Fall sein, oder sollen 
Basic-Programme mit Maschinenprogrammen zusammenge¬ 
linkt werden, so muß Modus »1« (HiMem-Modus) verwendet 
werden. Die Verschieberoutine würde sich sonst selbst über¬ 
schreiben. 

Anwendung des Linkers 

Beispiel: Wir wollen aus dem SMON $c000, einer RENEW- 
Routine mit der Startadresse 36000 und einem Assembler 
ASS $9000 ein einziges Programm machen. Dieses sollte 


nach dem Laden die einzelnen Teile gleich an die richtigen 
Adressen im Speicher versetzen und mit »RUN« zu starten 
sein. Weiterhin soll danach gleich der SMON starten: 

(Alle drei Programme müssen sich auf der gleichen Diskette 
befinden.) Zuerst lädt man den Linker und startet ihn. Dann gibt 
man die Zeilennummer, in der später der SYS-Befehl stehen 
soll, einen erklärenden REM-Text und den Namen ein, den das 
fertige Programm erhalten soll. Als Betriebsart wählen wir »0«, 
da der Basic-Startbereich von unseren Programmen nicht be¬ 
rührt wird. Die Frage nach der Anzahl der Programme beant¬ 
worten wir mir »3«. Nun werden die Namen der einzelnen Pro¬ 
gramme eingegeben, woraufhin der Linker deren Startadres¬ 
sen berechnet und ausgibt. Diese könnten jetzt noch geändert 
werden, was aber nicht sehr ratsam ist. Maschinenprogramme 
haben im allgemeinen nämlich die Eigenschaft, nur in dem 
Speicherbereich zu laufen, für den sie geschrieben wurden. 
In unserem Fall übernehmen wir also die Startadressen mit der 
RETURN-Taste. 

Jetzt fragt der Linker nach der Reihenfolge, in der später die 
Programme verschoben werden sollen (ist in unserem Fall 
egal, da sich unsere Beispielprogramme nicht im geringsten 
gegenseitig stören). Der Linker meldet sich mit 

1 = SMON ScOOO 

2 = ASS $9000 

3 = RENEW 

4 = ENDE 

Wir tippen zum Beispiel »2« für die Verschiebung des As¬ 
semblers. Nun wird für ihn die Einsprungsart verlangt: 
EINSPRUNG: 0 = KEINER, 1=JSR, 2=JMP 


L'c‘e der wichtigsten Variablen: 

U$ = Überschrift 

TS = REM-Text, der hinter dem SYS-Befehl im generierten 
Programm steht. 

NA(U) = Neue Anfangsadresse (Adresse, an der das Einzel¬ 
programm nach dem Verschieben steht) 

NE(U) = Neue Endadresse 

S(U) = Alte Anfangsadresse (dort steht der Programmteil im 
fertigen Programm) 

E(U) = Alte Endadresse 

K = Anzahl der zu linkenden Programme (maximal acht) 
BS$ = Floppy-Befehlsstring 
LH = LoMem- oder HiMem-Modus 

NA$ = Name des fertigen Programms 

Die Variablenliste des Linkers 






Eingangs¬ 

variable 

Ausgangs¬ 

variable 

Beschreibung 

Ein¬ 

sprung 


A=2 byte-Zahl 

AL% (LO-Anteil) 
AH% (Hl-Anteil) 


940 

X$=filename 

CI O=vorhanden, 
62=nicht vorhan¬ 
den 

Testet auf Vorhan¬ 
densein von Pro¬ 
grammen 

950 



Fehlerbehandlung: 
Return nur bei ok 
oder File not 
found, sonst Ab¬ 
bruch. 

960 

F$=filename 

SA=Startadresse, 

EA=Endadresse 

V=Verbrauch 

Berechnet SA, 

EA,V und schreibt 
aktuellen Track 
und Sektor 

1 120 


Tabelle. Beschreibung der wichtigsten Unterprogramme 
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Tips & Tricks 


Da nach der Verschiebung des Assemblers dieser nicht 
gleich gestartet werden soll, geben wir eine »O« ein. Es er¬ 
scheint am Bildschirm: 

1 = SMON ScOOO 

2 

3 = RENEW 

4 = ENDE 

Sie sehen, der Assembler ist »verschwunden«. Der Linker 
wartet auf das nächste Kommando. Wir geben »3« für die 
RENEW-Routine ein. Da diese ebenfalls nicht gleich gestartet 
werden soll, beantworten wir die nachfolgende Frage mit »0«. 
Dann verschieben wir mit »1« den SMON. Wir haben vorher ge¬ 
sagt, daß das fertige Programm diesen gleich starten sollte. Al¬ 
so Einsprungsart »2«. Die Einsprungsadresse, die der Linker 
daraufhin verlangt, ist 49152 (SMON). 

Es wird noch einmal nach der Einsprungsart gefragt, da bei 
der Eingabe von »1« (JSR) noch weitere Einsprünge erfolgen 


könnten. Wir quittieren das Ganze mit »0« und das Abenteuer 
ist für uns erledigt. 

Jetzt wirft der Linker die DOS-interne Copy-Routine an, die 
die vorher generierten Teile »V« und »S« auf der Diskette direkt 
aneinanderhängt. Nach einiger Zeit meldet sich der Computer 
mit READY, und der Link-Vorgang ist beendet. Auf der Diskette 
befindet sich jetzt das fertige Programm, das mit LOAD"na- 
me",8 geladen und mit »RUN« gestartet werden kann. Es wer¬ 
den zuerst die gelinkten Programme in der festgelegten Rei¬ 
henfolge an ihren Platz im Speicher verschoben und die durch 
JMP oder JSR definierten Adressen angesprungen. Achtung: 
Vor einem erneuten Start durch »RUN« sollte das Programm 
erst noch einmal geladen werden, ebenso sollte es nach dem 
Verschieben nicht mehr gespeichert werden. 

Die wichtigsten Unterprogramme des Linkers sind in der Ta¬ 
belle beschrieben. Die Routine »Test auf Vorhandensein von 
Programmen auf Disk« eignet sich gut zum Einbau in eigene 
Programme. (Andreas Knipp/tr) 


10 REM ********************* 

<025> 

510 

PRINT#3,CHRF(AH > CHRF(133)CHRF(96); 

<215> 

20 REM * LINKER 64 * 

<204> 

520 

A=ECU)+1:GOSUB 940 

< 109> 

30 REM * (C) ANDREAS KNIPP * 

< 188 > 

530 

PR I NT#3 , CHRF C169) CHRF C AL) CHRF C 133) CHRF 


40 REM ********************* 

<055> 


C90)CHRFC169) ; 

<004 > 

50 POKE 53280,4:POKE 53281,5 

<206> 

540 

PRINT#3,CHRF CAH)CHRF C133)CHRF (91) ; 

<207> 

60 UF="CCLR,ORANGE,RVSON,40SPACE,RVOFF>"+C 


550 

A=NECU)+1:GOSUB 940 

<059> 

HRF<13) 

<104> 

560 

PR I NT#3, CHRF C169) CHRF C AL) CHRF C133 ) CHRF 


70 UF=UF+"{WHITE,11SPACEJL I N K E RI3SPAC 



C88)CHRFC169); 

<049> 

E>6 4"+CHRF(13) 

<103> 

570 

PRINT#3,CHRF C AH)CHRF C133)CHRF C 89); 

<041 > 

80 UF=UF+"<6SPACE,D0WN>PR0GRAMMED BY ANDRE 


580 

PRINT#3,CHRFC32)CHRFC191)CHRF C163);:Z= 


AS KNIPP"+CHRF(13) 

<060> 


Z+27: GOTO 740 

<164> 

70 PRINT UF 

< 1 72> 

590 

A=S(U):GOSUB 940:Al=Z+4 

<204> 

100 

OPEN 15,8,15,"I":GOSUB 960 

<0B4> 

600 

PRINT#3,CHRF C160)CHRFC0)CHRFC185)CHRFC 


110 

Z=0: AF= " ■'! LLF= " {37SPACE>” +CHRF (13) +" Ol 



AL)CHRF CAH)CHRF C153); 

<095> 


P>" 

< 177> 

610 

Z=Z+6:A=NACU):GOSUB 940:A2=Z+1 

<247> 

120 

INPUT"{HOME,10DOWNJZEILENNUMMER ";ZN 

<253> 

620 

PR I NT#3, CHRF C AL) CHRF C AH) CHRF C 200) +CHRF 


130 

INPUT"{DOWNTTEXT {9SPACE>";TF 

<041 > 


C192);:A=NE CU)+1—AL 

<042> 

140 

PRINT LLFZN; "SYS.RB.RAR. "TF 

<126> 

630 

GUa.,3 940: Z=Z+4 

<046> 

150 

INPUT"{DOWNJNAME DES GENERIERTEN PRG"; 


640 

A3=AH 

< 135> 


NAF:XF=NAF:GOSUB 950 

<043> 

650 

PR I NT#3 , CHRF C AL ) CHRF C 240) CHRF C 12 > CHRF C 


160 

IF C1=0 THEN PRINT"<UP>"NA*"{2SPACEIBE 



152)CHRF(208); 

<214> 


REITS VORHANDEN<8SPACE>":GOTO 120 

<086> 

660 

PR I NT#3 , CHRF (242) CHRF (238) ; 

<057> 

170 

INPUT"{DOWNIWIEVIELE PRG WERDEN VERKET 


670 

Z=Z+7:A=A1:GOSUB 940 

<164> 


TET ";K 

<215> 

680 

PRINT#3,CHRF CAL)CHRF(AH)CHRF(238)j 

<101> 

180 

PRINT“{DOWNJVERSCHIEBEPRG VOR (=0)" 

<138> 

690 

Z=Z+3:A=A2:GOSUB 940 

< 191 > 

190 

INPUT"ODER NACH (=1) PROGRAMMBLOCK"iLH 

<025> 

700 

PRINT#3,CHRF(AL)CHRF(AH)CHRF(24)CHRF C1 


200 

INPUT"{DOWNJALLES RICHTIG J/N";ARF 

<004> 


44)CHRF(233); 

<253> 

210 

IF ARFO”j"THEN 120 

<087> 

710 

PRINT#3,CHRF(173)CHRF(AL > CHRF(AH); 

<072> 

220 

DIM NA(20),NE(20),S(20),E<20),NF(20),N 


720 

Z=Z+8 

<21B> 


1$(20) 

<122> 

730 

PRINT#3,CHRF(201)CHRF(A3)CHRF(144)CHRF 


230 

Z=2064+LEN(TF) 

< 142> 


(237);:Z=Z+4 

<066> 

240 

IF LH=0 THEN SE=Z:Z=Z+K«40:PA=Z 

< 112> 

740 

INPUT"EINSPRUNG: 0=KEINER,1=JSR,2=JMP" 


250 

IF LH THEN Z=Z+2 

< 104> 


;E:IF E<0 OR E>2 THEN 740 

< 166> 

260 

PRINT UF 

<08B> 

750 

IF E=1 OR E=2 THEN INPUT"EINSPRUNG";A: 


270 

FOR U=1 TO K 

<223> 


GOSUB 940:IF INT(AH/256)GOTO 750 

<075> 

280 

PRINT"NAME DES"U"{LEFTJ.PRG":INPUT NF( 


760 

IF E=2 THEN PRINT#3,CHRF(76)CHRF(AL)CH 



U):N1F(U)=NF(U) 

< 112> 


RF(AH);:Z=Z+3 

< 118> 

270 

XF=NF(U):GOSUB 950 

<247> 

770 

IF E=1 THEN PRINT#3,CHRF(32)CHRF(AL)CH 


300 

IF CI THEN PRINT"DISES PRG GIBT ES NIC 



RF (AH):Z=Z+3 

< 162> 


HT":GOTO 280 

<017> 

780 

IF EOB THEN 740 

<025> 

310 

NEXT U 

<236> 

790 

GOTO 420 

<012> 

320 

FOR U=1 TO K 

<017> 

800 

IF LH=0 THEN FOR U=(Z+l>TO(PA-2):PRINT 


330 

FF=NF(U):GOSUB 1120 

<111> 


#3,CHRF(RND(U)*255);:NEXT 

<052> 

340 

PRINT"{2DOWN>STARTADRESSE VON{2SPACE>" 


810 

CLOSE 3 

<075> 


NF(U):PRINT"{RIGHT>"SA:INPUT"{UP>"; SA 

<246> 

820 

SAF=MIDF(STRF(SE)+“C5SPACE)“,2,5) 

< 117> 

350 

EA=SA+V 

<015> 

830 

OPEN 2,8,2,"@:+S,P,W":GOSUB 960 

<168> 

360 

NA(U)=SA:NE <U)=EA:S <U)=Z 

< 136> 

B40 

A=ZN:GOSUB 940 

<011> 

370 

E (U) =S (U) +V: Z=E <U> +2 

<034> 

850 

PRINT#2,CHRF(1> CHRF(8)CHRF(13+LEN(TF)) 


380 

NEXT U 

<050> 


CHRF(8); 

<094> 

390 

IF LH=0 THEN Z=SE 

<007> 

860 

PRINT#2,CHRF(AL >; 

<067> 

400 

IF LH=1 THEN Z=Z-2:SE=Z 

<230> 

870 

PRINT#2,CHRF(AH); 

<073> 

410 

OPEN 3,8,3,+V,P,W" 

< 115> 

880 

PRINT#2,CHRF(158); 

<231 > 

420 

PRINT UF”{5D0WN>" 

< 144> 

890 

PRINT #2, SAF+ 11 "+TF; 

<099> 

430 

FOR 1=1 TO K:PRINT I,NF(I):NEXT:PRINT 


900 

FOR 1=1 TO 4 

<110> 


K+l,"ENDE":NF <K+1)= "£" 

<024> 

910 

PRINT#2,CHRF(0);:NEXT:CLOSE 2 

<065> 

440 

INPUT"NAECHSTE PRG—NUMMER";U:IF U>K+1 


920 

IF LH THEN PRINT#15,"R:fi=+S":GOSUB 960 



OR NF CU)=""THEN 440 

<248> 


:GOTO 1000 

< 104> 

450 

IF U=K+1 THEN 800 

<202> 

930 

PRINT#15,"C:a=+S,+V":GOSUB 960:GOTO 10 


460 

NF(U)="" 

<093> 


00 

< 143> 

470 

IF E<U)=NE(U)GOTO 740 

<251 > 

940 

AH=INT(A/256):AL=A-AH*256:RETURN 

< 120> 

480 

IF ECU)>NE(U>GOTO 590 

<134> 




490 

500 

A=SCU):GOSUB 940 

PR I NT#3 , CHRF C169 ) CHRF C AL ) CHRF C133 ) CHRF 

< 134> 

Listing »Linker 64«. Beachten Sie bitte 



C95)CHRF C169); 

<23B> 

die Eingabehinweise auf Seite 6 





Tips & Tricks 


950 OPEN 6,B,6,X*sCL0SE 6 


<231 > 

1230 

FOR Y=1 TO 16 

<23B> 

960 INPUT#15,Cl,C*,C2,C3sIF C1=0 

OR CI=62 


1240 

GOSUB 1440 

<116> 

THEN RETURN 


<000> 

1250 

IF FF*=F*THEN 1310 

<234> 

970 PRINT C1,C*,C2,C3 


<063> 

1260 

FF*=FF*+AS 

<042> 

9B0 PRINT"PROGRAMMABBRUCH.' ! ! ! " 


<050> 

1270 

IF A*OMID*<F*,Y,l)THEN Y=16 

< 109> 

990 CLOSE 15sSYS 65511sOPEN 1,B,15,"Ss+?": 


1280 

NEXT Y 

<222> 

CLOSE IsEND 


<035> 

1290 

NEXT X 

<224> 

1000 

FOR 1=1 TO K:N*(I)=N1*(I) 


< 133> 

1300 

GOTO 1140 

< 114> 

1010 

Nl*(I)="+"+RIGHT*<STR*CI>,1)sPRINT#15 


1310 

PRINT U*"C3D0WN>IN VERARBEITUNG!(RVSO 



,"R:"+Nl*<I>+"="+N*<I> sNEXT 


<093> 


N>“+F*+"(RVOFFJ" 

< 138> 

1020 

BS*="CsH=S," 


<215> 

1320 

T=T1s S=S1 

<214> 

1030 

FOR 1=1 TO K 


< 125> 

1330 

PRINT#15,"Ul";2;0;T;SsPRINT LL*;T,SsP 


1040 

BS*=BS*+N1*<I> 


<244> 


RINT" OIP>"; 

< 179> 

1050 

IF I=K THEN 1070 


<013> 

1340 

PRINT#15,"B-P";2;0 

< 11B> 

1060 

BS*=BS*+'V 


<036> 

1350 

GOSUB 1440 s T=A 

< 191 > 

1070 

NEXT 


<064> 

1360 

GOSUB 1440sS=A 

<200> 

1080 

IF LH THEN BS*=BS*+",+V" 


<065> 

1370 

IF 0=0 THEN Q=lsGOSUB 1440sSL=AsGOSUB 


1090 

PRINT#15,BS*:GOSUB 960:PRINT#15,"S:fl" 

<125> 


1440s SH=As SA=SL+SH*256 

< 183> 

1100 

FOR 1 = 1 TO K:PRINT#15,"Rs "+N*(I )+“=•' + 


1380 

IF T=0 THEN EA=SA+PZ*254+S—3sV=EA-SAs 



NI *(I):NEXT 


< 164> 


GOTO 1400 

< 149> 

1110 

PRINT#15,“Rs"+NA*+"=H":GOTO 

990 

<041 > 

1390 

PZ=PZ + 1s GOTO 1330 

< 164> 

1120 

OPEN 2,8,2,"#" 


< 113> 

1400 

PRINT"(DOWN >STARTADRESSE s"SA 

< 131 > 

1130 

T=18sS=l 


< 1B9> 

1410 

PRINT"ENDADRESSE(2SPACE > s"EA 

< 171 > 

1140 

PRINT#15,"U1";2;0;T;S 


<245> 

1420 

PRINT"VERBRAUCH(3SPACE>s"V 

< 144> 

1150 

PRINT#15,"B-P";2;0 


<182> 

1430 

CLOSE 2sQ=0sPZ=0sRETURN 

<009> 

1160 

GOSUB 1440sT=A 


<255> 

1440 

GET#2,A*sIF A4=""THEN A*=CHR*(0> 

<247> 

1170 

GOSUB 1440:S=A 


<008> 

1450 

A=ASC(A*)sRETURN 

<24S> 

1180 

FOR X=0 TO 7 


<097> 

© 64 



1190 

PRINT#15,"B-P";2;X*32+3 


<024> 

'er 


1200 

GOSUB 1440s TI=A 


<243> 




1210 

GOSUB 1440sS1=A 


<252> 




1220 

FF*="" 


<072> 

Listing »Linker 64«. (Schluß) 



Variablen- 
Dump 

Mit diesem kleinen Programm und ei¬ 
nem SYS-Befehl haben Sie alle Ihre 
Basic-Variablen voll im Griff. Eine, nicht 
nur zum Austesten von Programmen, 
nützliche Erweiterung. 


»Dump« bedeutet übersetzt Speicherauszug oder Speicher¬ 
ausdruck eines Computers. Ein Variabien-Dump ist eine Über¬ 
sichtaller Variablen, die in einem (Basic-)Programm verwendet 
we r den. Es gibt verschiedene Möglichkeiten, die Erweiterung 
»Dump« zu benutzen: 

— SYS 49152,A: Listet alle im Programm verwendeten indi¬ 
zierten Variablen mit dem Namen A auf; also A(1), A(2) und so 
weiter. 

— SYS 49152 ohne Zusatz: Listet alle nichtindizierten Varia¬ 
blen. 

— SYS 49152,$: Listet nur alle nichtindizierten Stringvaria¬ 
blen. 

— SYS 49152,%: Listet nur alle nichtindizierten numerischen 
Variablen (das Gegenstück zu SYS 49152,$). 

(Herbert Kunz/tr) 


Programm 

: dump c 000 


C000 c2e2 

c0eB 

: 

68 

4c 

84 

C0 

a0 

00 

bl 

14 

a8 

cleB 

: 

15 

a5 

f 9 

B5 

14 

c5 

31 

dB 

d5 












C0f0 

: 

29 

7f 

20 

d2 

ff 

cB 

bl 

14 

70 

Cl + 0 

: 

ce 

ab 

15 

cS 

32 

d0 

cB 

60 

lc 












C0f 8 

: 

f0 

05 

29 

7f 

20 

d2 

ff 

a5 

89 

ClfB 

: 

a0 

04 

bl 

14 

85 

f 9 

aa 

c8 

ee 

cbbb 

: 

a 0 

00 

bl 

7a 

f0 

26 

20 

fd 

19 

C100 

: 

09 

c9 

01 

dB 

08 

a9 

24 

20 

e7 

c 200 

: 

bl 

14 

99 

37 

03 

a9 

00 

99 

b9 

C008 

: 

ae 

85 

(7 

20 

13 

bl 

90 

03 

82 

c 108 

: 

d2 

ff 

4c 

16 

cl 

c9 

02 

d0 

c4 

c 208 

s 

7f 

03 

cB 

bl 

14 

99 

37 

03 

62 

C010 

: 

4c 

54 

cl 

20 

73 

00 

aS 

f 7 

bB 

cl 10 

: 

05 

a9 

25 

20 

d2 

fi 

60 

a0 

27 

C210 

s 

a9 

00 

99 

7f 

03 

ca 

dB 

»7 

a9 

C01B 

: 

c9 

24 

d0 

06 

a9 

01 

85 

02 

a5 

C118 

: 

00 

bl 

22 

aa 

cB 

bl 

22 

aB 

c3 

c 21 B 

: 

cB 

9B 

18 

65 

14 

85 

fb 

90 

5e 

C020 

s 

dB 

Be 

c9 

25 

dB 

06 

a9 

02 

f 6 

C120 

: 

Ba 

20 

95 

b3 

4c 

2 a 

cl 

20 

f 3 

c 220 

B 

01 

eB 

aS 

IS 

85 

fc 

8a 

fB 

ee 

C02B 

: 

B5 

02 

.10 

04 

a9 

00 

85 

02 

18 

Cl28 

: 

a6 

bb 

20 

dd 

bd 

4c 

le 

ab 

7e 

C22B 

: 

02 

e6 

fc 

a9 

Bd 

20 

d2 

ff 

37 

C030 

: 

a5 

2d 

a4 

2e 

85 

14 

84 

15 

90 

C130 

: 

20 

4f 

cl 

a0 

02 

bl 

22 

BS 

bd 

c230 

: 

20 

94 

C0 

20 

ec 

C0 

a9 

28 

9a 

C03B 

: 

c4 

30 

d0 

02 

c5 

2f 

90 

01 

a3 

c 138 

: 

25 

BB 

bl 

22 

85 

24 

BB 

bl 

51 

c23B 

: 

20 

d2 

ff 

a5 

f 9 

85 

fa 

a5 

79 

C040 

: 

60 

69 

02 

90 

01 

c8 

85 

22 

98 

c 1 40 

: 

22 

85 

26 

f0 

0a 

bl 

24 

20 

cb 

C240 

: 

fa 

38 

e9 

bi 

0 a 

aB 

b9 

85 

c9 

C04B 

: 

84 

23 

a9 

0d 

20 

d2 

ff 

20 

43 

C14B 

: 

d2 

tf 

c8 

c4 

26 

d0 

f 6 

a9 

fd 

c248 

s 

03 

aa 

b9 

B4 

03 

20 

cd 

bd 

83 

C050 

: 

94 

C0 

20 

b3 

C0 

20 

ec 

C0 

05 

c 150 

: 

22 

4c 

d2 

ff 

a9 

00 

85 

f7 

ed 

c250 

: 

c6 

fa 

a5 

fa 

tB 

OB 

a9 

2c 

aa 

C058 

: 

a5 

d3 

c9 

03 

f0 

08 

a9 

20 

f 0 

c 15B 

: 

B5 

fB 

20 

79 

00 

B5 

f 7 

20 

dd 

C25B 

: 

20 

d2 

ff 

4c 

3f 

c 2 

a9 

29 

6e 

C060 

: 

20 

d2 

ff 

4c 

58 

C0 

a9 

3d 

If 

Cl60 

3 

73 

00 

f0 

0a 

90 

08 

20 

79 

0d 

c260 

: 

20 

d2 

ff 

a9 

3d 

20 

d2 

ff 

3e 

C06B 

: 

20 

d2 

ff 

a5 

09 

c9 

01 

d0 

2a 

C168 

: 

00 

20 

13 

bl 

90 

09 

B5 

fB 

cd 

C26B 

: 

a5 

fb 

85 

22 

a5 

fc 

85 

23 

4f 

C070 

: 

06 

20 

30 

cl 

4c 

84 

c 0 

c9 

4a 

c 170 

: 

♦ 0 

36 

20 

73 

00 

f0 

31 

85 

49 

c270 

: 

a5 

09 

c9 

01 

d0 

07 

20 

30 

52 

C07B 

: 

02 

dB 

06 

20 

17 

cl 

4c 

84 

22 

cl7B 


*9 

20 

73 

00 

a5 

f 9 

c9 

24 

f 8 

c278 

: 

Cl 

a9 

03 

d0 

10 

c9 

02 

d0 

e2 

c0B0 

: 

C0 

20 

27 

cl 

a5 

14 

a4 

15 

0 a 

cl 80 

: 

d0 

0d 

a9 

01 

85 

09 

a9 

80 

aa 

c2B0 

: 

07 

20 

17 

cl 

a9 

02 

d0 

05 

Bd 

C088 

: 

18 

69 

07 

90 

a7 

CB 

4c 

34 

B3 

c 188 

: 

05 

f 8 

85 

f 8 

4c 

ac 

Cl 

c9 

4e 

c2B8 

: 

20 

27 

cl 

a9 

05 

18 

65 

fb 

80 

C090 

s 

C0 

4c 

08 

af 

20 

87 

ea 

a5 

a4 

c 1 90 

: 

25 

f 0 

03 

4c 

08 

af 

a9 

02 

20 

c290 

: 

85 

fb 

90 

02 

e6 

fc 

a6 

f 9 

5c 

C09B 

: 

cb 

c9 

39 

*0 

04 

20 

2 c 

a8 

(8 

c 198 

: 

85 

09 

a9 

80 

05 

f 7 

85 

fl 

32 

C298 

: 

8a 

0a 

38 

e9 

02 

aB 

Bc 

ff 

0 a 

C 0 a 0 


60 

20 

87 

ea 

a5 

cb 

c9 

40 

b0 

cla0 

: 

a9 

80 

05 

fB 

85 

fB 

d0 

04 

55 

c 2 a 0 

B 

03 

b9 

85 

03 

18 

69 

01 

99 

46 

c0aB 


fB 

f 7 

c9 

39 

f0 

f 3 

a9 

00 

83 

claB 

: 

a9 

00 

B5 

09 

a5 

2f 

a4 

30 

9b 

c2aB 

: 

B5 

03 

b9 

as 

03 

d0 

09 

b9 

lc 

C0b0 

: 

85 

c6 

60 

a0 

00 

84 

09 

bl 

70 

clb 0 

: 

B5 

14 

84 

15 

c4 

32 

dB 

07 

32 

c2b0 

: 

84 

03 

18 

69 

01 

99 

84 

03 

de 

c0b8 

a 

14 

10 

0a 

a9 

02 

81, 

09 

c5 

B8 

clb8 

: 

aü 

14 

c5 

31 

d0 

01 

60 

a 0 

d7 

c2b8 

: 

b9 

84 

03 

d9 

3c 

03 

d0 

08 

df 

C0C0 

: 

02 

<0 

ie 

d0 

12 

cB 

bl 

14 

32 

C 1 C0 

: 

00 

98 

aa 

bl 

14 

c5 

f 7 

d0 

de 

c2c0 

: 

b9 

85 

03 

d9 

3d 

03 

f0 

03 

ee 

c0c8 

: 

10 

0d 

a9 

01 

85 

09 

c5 

02 

aS 

clcB 

: 

07 

cB 

bl 

14 

c5 

fB 

f0 

28 

5a 

c2cB 

: 

4c 

2b 

c2 

ca 

f 0 

12 

a9 

00 

fa 

c 0 d 0 

: 

f0 

0f 

a5 

02 

d0 

0C 

60 

a5 

2 c 

cld0 


a0 

02 

bl 

14 

18 

65 

14 

85 

68 

c2d0 

: 

99 

84 

03 

99 

85 

03 

88 

88 

43 

c0dB 

: 

02 

c9 

00 

f0 

04 

c9 

02 

d0 

15 

cldB 

: 

(9 

90 

01 

eB 

cB 

bl 

14 

18 

11 

c2dB 

: 

a9 

Bd 

20 

d2 

ff 

4c 

al 

c 2 

19 

C0B0 

: 

01 

60 

a9 

91 

20 

d2 

ff 

68 

17 

cle 0 

: 

65 

15 

85 

15 

8a 

fo 

02 

e6 

da 

c2e0 

: 

60 

00 

00 

00 

00 

00 

00 

00 

41 


Listing »Variablen-Dump«. Bitte beachten Sie die Eingabehinweise auf Seite 8. 
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Tips & Tricks 


Escape-Taste 
für Gänsefüß- 
chen-Modus 

Beim Editieren geschieht es oft, daß 
man anstelle einer Cursorbewegung 
ein reverses Feld erhält, auch wenn 
man das gar nicht wünscht. Der einzh- 
ge Weg zurück zur normalen Cursor¬ 
kontrolle führte bis jetzt über das 
Drücken der RETURN-Taste. Mit dieser 
Routine kommen Sie durch einfachen 
Druck auf die »F7c<-Taste aus dem 
»Gänsefüßchen-Modus« heraus. 

Vielleicht haben Sie sich auch schon über die etwas exotisch 
klingenden Ausdrücke im Titel gewundert, aber sie beziehen 
sich auf eine typische Eigenschaft des Commodore Basic- 
Editors. Wenn man Anführungszeichen oder die INSERTTaste 
getippt hat, wird jedes Drücken einer Cursortaste nicht durch 
eine direkte Bewegung des Cursors, sondern durch ein rever¬ 
ses Steuerzeichen quittiert. Nebenbei: dasselbe geschieht 
beim Drücken der Funktions-, derCLR/HOME- oder der CTRL- 
Taste zusammen mit den Farbentasten. Dieser Modus, in dem 
sich der Editor dann befindet, wird Quote-Modus, zu deutsch 
»Gänsefüßchen-Modus« oder programmierter Cursor ge¬ 
nannt. 

Manchmal ist das sehr erwünscht, wenn man zum Beispiel 
die Cursor- oder Farbsteuersequenzen ins Programm einbin¬ 
den möchte. Oft ist es aber auch unerwünscht, und man über¬ 
schreibt durch Unachtsamkeit eine halbe Programmzeile mit 
reversen »Q« oder sonstigen Steuerzeichen. Aus dem 
»Gänsefüßchen-Modus« heraus gelangt man nur, indem man 
noch einmal die Taste für Anführungsstriche oder RETURN 
drückt. Wie gut wäre es, wenn man mit einem einfachen Ta¬ 
stendruck aus dem störenden Quote-Modus herausgelangen 
könnte, ohne irgendein Zeichen überschreiben zu müssen. 

Die Escape-Routine realisiert diese Möglichkeit vollständig. 
Durch simplen Druck auf die Funktionstaste »F7« werden alle 
Bits gelöscht, die verhindern, daß sich der Cursor normal steu¬ 
ern läßt. »F7« ermöglicht also das Entkommen (englisch: esca- 
pe) aus diesem Modus. 

Damit Sie auch immer genau wissen, wann welcher Modus 
aktiv ist, stehen in der rechten oberen Bildschirmecke die ent¬ 
sprechenden Buchstaben in weißer Farbe. Haben Sie Anfüh¬ 
rungsstriche geschrieben, dann erscheint ein »Q« als Zeichen 
dafür, daß der Quote-Modus eingschaltet ist. Das »Q« steht 
dort so lange, bis der Modus ausgeschaltet wird, das heißt, bis 
entweder RETURN, Schlußzeichen oder »F7« gedrückt wur¬ 
de. Wollen Sie etwas in reverser Schrift erscheinen lassen, 
dann müssen Sie CTRL/RVS ON drücken und schon erscheint 
ein weißes »R« als Abkürzung für Revers-Modus in der Bild¬ 
schirmecke. Als drittes Zeichen kann noch das »I« Vorkom¬ 
men, nämlich dann, wenn die INSERT-Taste benutzt wurde. Im 
Insert-Modus kann man nicht einmal ein falsch eingetipptes 
Zeichen mit der DEL-Taste löschen, da nur reverse »T«s erzeugt 


pragramm : escape-t.cod cOQO cOB-f 


cOOO 

■ 

■ 

78 

a9 

11 

a2 

cO 

8d 

14 

03 

b4 

cooa 

■ 

■ 

8e 

15 

03 

58 

a9 

02 

85 

fb 

a5 

cOlO 

■ 

■ 

60 

c6 

fb 

fO 

03 

4c 

31 

ea 

ld 

c018 

■ 

a9 

02 

85 

fb 

a9 

00 

85 

fc 

4e 

c020 

■ 

■ 

a5 

d4 

fO 

11 

a9 

ff 

85 

fc 

38 

c028 

m 

m 

a9 

11 

8d 

27 

04 

a9 

01 

8d 

4f 

c030 

■ 

27 

dB 

4c 

3a 

cO 

a9 

20 

8d 

13 

c038 

• 

■ 

27 

04 

a5 

c7 

fO 

Od 

a9 

12 

06 

c040 

■ 

■ 

8d 

26 

04 

a9 

01 

8d 

26 

dB 

dd 

c048 

■ 

■ 

4c 

50 

cO 

a9 

20 

8d 

26 

04 

31 

c050 

• 

a5 

d8 

fO 

11 

a9 

ff 

85 

fc 

6a 

c058 

■ 

■ 

a9 

09 

8d 

25 

04 

a9 

01 

8d 

3b 

c060 

■ 

■ 

25 

dB 

4c 

6a 

cO 

a9 

20 

8d 

47 

c068 

■ 

■ 

25 

04 

a5 

d7 

c9 

88 

dO 

lb 

4e 

c070 

■ 

■ 

a2 

00 

86 

d4 

86 

c7 

86 

d8 

cl 

c078 

s 

a5 

fc 

fO 

Of 

e8 

86 

c6 

a4 

eO 

c080 

■ 

■ 

d3 

88 

a5 

ce 

91 

dl 

a9 

9d 

64 

c088 

m 

■ 

8d 

77 

02 

4c 

31 

ea 

00 

aO 

87 


Listing 2. Das MSE-Ladeprogramm zu »Escape-Taste«. 
Bitte beachten Sie die Eingabehinweise auf Seite 6 


Eingabehinweise 

Wer im Besitz eines Assembler ist, kann das Assemblerpro¬ 
gramm (Listing 1) abtippen, alle anderen verwenden bitte den 
Weg über den MSE (Listing 2). 

Die Startadresse des Programmes liegt bei $C000 gleich 
49152 dezimal, die Endadresse bei $C08F oder 49295. 

Das Programm wird natürlich nach dem Abtippen und Spei¬ 
chern wieder mit der Sekundäradresse 1, das heißt absolut 
geladen. Ncrh dem Laden muß »NEW« eingegeben werden, 
damit die Basic-Zeiger, die in den Bereich $COOO-$CFFF ver¬ 
stellt wurden, wieder »zurechtgebogen« werden. 


10 SYS9*4096 



15 .DPT P,GO 



20 ■, 



25 ;**************************************** 

30 ;*==== ESCAPE-TASTE FUER QUOTE-MODE ====* 

35 ;» 

AUF 

COMMODORE 64 * 

40 ;*********»«»*«*****»*»******»********»*» 

45 ;* 


* 

50 ;* 

CHRISTIAN SPOERRI * 

60 ;* 


LANBWEID 9 * 

70 j * CH-8045 ZUERICH/SCHWEIZ * 

75 5 * 


* 

BO j* 

TEL. 

00411/463 65 94 * 

85 ;* 


* 

90 : ***************************************** 

95 ; 



100 ; 



105 ; 



110 COUNT 

=*FB 

; VERZOEBERUNBSZAEHLER 

115 DELAY 

=*02 

; ANZAHL DURCHLAEUFE BIS 

120 : 


; ZUR ABFRABE 

125 LASTKEY 

=*D7 

; ASCII—CODE DER LETZTEN 

130 s 


; GEDRUECKTEN TASTE 

135 QUOTE 

=*D4 

5 FLAGGE FUER QUOTE-MODE 

140 r 


; (GAENSEFUESSCHEN-MODUS) 

145 INVERS 

=*C7 

; RVS FLAG FUER BILDSCHIRM 

150 NINSERT 

=*D 8 

; ANZAHL FAELLIBER INSERTS 

155 FLAB 

=*FC 

; FLAGGE, OB ZEICHEN GE- 

160 s 


; LOESCHT WERDEN MUSS 

165 BSPALTE 

=*D3 

; ZEIGER AUF BILDSCHIRM- 

170 g 


; SPALTE 

175 ZEILE 

=*D1 

; VEKTOR, ZEIGT AUF ZEILENBE- 

1B0 : 


; GINN IM BILDSCHIRMSPEICHER 

185 CHCURSOR 

=*CE 

; ZEICHEN UNTER CURSOR 

190 NOKEYS 

=*C6 

; ANZAHL ZEICHEN IM TASTATUR- 

195 s 


; PUFFER 

200 KBBUFFER 

=*277 

; BEGINN DES TASTATURPUFFERS 

205 F7 

=*B8 

; ASCII-CODE DER FUNKTIONS- 

210 : 


;TASTE F7‘ 

215 QSCODE 

=*11 

;BILDSCHIRMCODE VON "Q“ 

Listing 1. Das Assemblerlisting zum Programm 

»Escape-Taste 

( 
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220 

RSCDDE 

=*12 ; BILDSCHIRMCODE VON "R“ 

225 

ISCODE 

=*09 ;BILDSCHIRMCODE VON "I“ 

230 

NORMIRQ 

=*EA31 ;EINSPRUNSADRESSE FUER NOR- 

235 

s 


;MALE INTERRUPTROUTINE 

240 

IRQVCT 

=*314 ;ADRESSE DES INTERRUPTVECTOR 

245 

COLOR 

=*01 (FARBE 

DER INDIKATORBUCH- 

250 

: 


;STABEN (WEISS) 

255 

SCREEN 

=*427 ; SPEICHERPLATZ IM BILD- 

260 

: 


5 SCHIRMSPEICHER 

265 

CLRTBL 

=*D827 ;SPEICHERPLATZ IN DER 

270 

: 


(COLORTABELLE 

275 

; 




280 

5 




285 

*= scooo 




290 

5 




295 

s 

SEI 


;INTERRUPT VERHINDERN 

300 

: 

LDA 

•<START 

;STARTADRESSE DER NEU- 

305 

s 

LDX 

#>START 

;EN ROUTINE LADEN 

310 

: 

STA 

IRQVCT 

(IRQ-VEKTOR AUF NEUE 

315 

: 

STX 

IRQVCT+1 

;ROUTINE STELLEN 

320 

: 

CLI 


;INTERRUPT ERLAUBEN 

325 

s 

LDA 

•DELAY 

;VERZOEGERUNGS- 

330 

: 

STA 

COUNT 

;ZAEHLER SETZEN 

335 

: 

RTS 


;ZURUECK INS BASIC 

340 

5 




345 

START 

DEC 

COUNT 

(VERZ. ZAEHLER-1 

350 

: 

BEQ 

CHANGE 

(GENUEGEND UEBERSPR. 

355 

s 

JMP 

NORMIRQ 

;NEIN, NORMALER IRQ 

360 

CHANGE 

LDA 

•DELAY 

;JA,NEUE ROUTINE 

365 

: 

STA 

COUNT 

;ZAEHLER HOCHSETZEN 

370 

s 

LDA 

•*00 


375 

s 

STA 

FLAG 

;FLAGGE LOESCHEN 

380 

: 

LDA 

QUOTE 

(EDITOR IM QUOTEMODE 

385 

: 

BEQ 

NOTQUOTE 

;NEIN, UEBERSPRINGEN 

390 

: 

LDA 

•*FF 


395 

: 

STA 

FLAG 

(FLAGGE SETZEN 

400 

: 

LDA 

•QSCODE 

;LADE “Q" 

405 

: 

STA 

SCREEN 

;BRINGE AUF BILDSCHIRM 

410 

: 

LDA 

•COLOR 

;SETZE FARBE INS 

415 

s 

STA 

CLRTBL 

;FARBRAM 

420 

: 

JMP 

REVERS 

;NAECHSTE ABFRAGE 

425 

NOTQUOTE 

LDA 

#" “ 

;LEERZEICHEN AN STELLE 

430 

: 

STA 

SCREEN 

;DES "Q" SCHREIBEN 

435 

REVERS 

LDA 

INVERS 

;EDITOR IN REVERSMODE 

440 

: 

BEQ 

NOREVERS 

(NEIN, UEBERSPRINGE 

445 

: 

LDA 

•RSCODE 

;LADE "R", PRINTE EINE 

450 

: 

STA 

SCREEN-1 

;STELLE LINKS VON "Q" 

455 

s 

LDA 

•COLOR 

;FARBE 

460 

: 

STA 

CLRTBL-1 

;SETZEN 

465 

s 

JMP 

INSERT 

;NAECHSTE ABFRAGE 

470 

NOREVERS 

LDA 

• „ .. 

5 LEERZEICHEN AN STELLE 

475 

: 

STA 

SCREEN-1 

;DES "R“ SCHREIBEN 

480 

INSERT 

LDA 

NINSERT 

; WURDE 'INSERT' 

485 

s 



;GEDRUECKT 

490 

: 

BEQ 

NOINSERT 

;NEIN, UEBERSPRINGE 

495 

: 

LDA 

#*FF 


500 

: 

STA 

FLAG 

;FLAGGE SETZEN 

505 

: 

LDA 

•ISCODE 

( " I" LINKS VON "R" 

510 

8 

STA 

SCREEN—2 

5 HINSCHREIBEN 

515 

s 

LDA 

•COLOR 

(FARBE 

520 

: 

STA 

CLRTBL-2 

(SETZEN 

525 

s 

JMP 

KEYTEST 

;ZUR ABFRAGE VON F7" 

530 

NOINSERT 

LDA 

• " '• 

;BLANK AN STELLE 

535 

: 

STA 

SCREEN—2 

;DES “I“ SCHREIBEN 

540 

KEYTEST 

LDA 

LASTKEY 

;LETZTE GEDRUECKTE 

545 

: 

CMP 

•F7 

(TASTE GLEICH F7' 

550 

: 

BNE 

END 

(NEIN, ZUM ENDE 

555 

s 

LDX 

•*00 

JJA 

560 

8 

STX 

QUOTE 

;QUOTE-MODE LOESCHEN 

565 

: 

STX 

INVERS 

(REVERS-FLAGGE AUS 

570 

: 

STX 

NINSERT 

;INSERT—MODUS AUS 

575 

: 

LDA 

FLAG 

(WENN FLAGGE GLEICH 

580 

: 

BEQ 

END 

(NULL, DANN ZEICHEN 

585 

s 



(NICHT LOESCHEN 

590 

8 

INX 


(JETZT 1 IM X-REG 

595 

: 

STX 

NOKEYS 

(TASTATURBUFFER ENT- 

600 

8 



(HAELT EIN ZEICHEN 

605 

8 

LDY 

BSPALTE 

(CURSOR EINE STELLE 

610 

8 

DEY 


{ZURUECKBEWEGEN 

615 

8 

LDA 

CHCURSOR 

(CHAR. UNTER CURSOR 

620 

: 

STA 

(ZEILE),Y 

(AUF BILDSCHIRM 

625 

: 

LDA 

tt*9D 

(ASCII-CODE FUER 

630 

: 



(CURSOR ZURUECK 

635 

8 

STA 

KBBUFFER 

(IN TASTATURPUFFER 

640 

END 

JMP 

NORMIRQ 

(ENDE, GEHE ZUR NOR- 

645 

: 



(MALEN IRQ—ROUTINE 

READY. 





Listing 1. Das Assemblerlisting zum Programm »Escape- 
Taste« (Schluß) 


werden, aber ein Druck auf »F7« genügt, und das Problem ist 
behoben. 

Das Programm wird dann mit SYS49152 aufgerufen, und ab 
sofort ist die Routine »Escape-Taste« in den Systeminterrupt 
eingebunden. Das allerdings nur solange bis RUN/STOP- 
RESTORE gedrückt wird, dann wird der Interruptvektor wieder 
direkt auf die normale Interruptroutine gelenkt und die neue 
Routine wird so lange übergangen, bis das Programm neu ge¬ 
startet wird. 

Da diese Routine für den Einsatz beim Programmieren ge¬ 
dacht ist, sollten dabei keine Probleme entstehen. 

Als einzige Einschränkung muß gesagt werden, daß die Be¬ 
nutzer von Kassettengeräten bei einem Zugriff auf die Data- 
sette die Routine mit RUN/STOP-RESTORE ausschalten soll¬ 
ten, da Kassettenoperationen den Interruptvektor auf speziel¬ 
le Kassettenroutinen umschreiben und sich ein schon verstell¬ 
ter IRQ-Vektor negativ auswirkt. (Christian Spörri/aw) 


Schreiben Sie öfter Programme, bei 
denen Sie größere Datenmengen ver¬ 
walten müssen? Mit dem »Daten- 
Packer« wird der Aufwand an Ladezeit 
und Speicherplatz auf Diskette um 25 
Prozent reduziert. 

Dieses Programm kürzt Strings auf % der normalen Länge. 
Wenn man zum Beispiel einen String mit 12 Zeichen Inhalt hat, 
und den »Daten-Packer« darauf losläßt, ist der String nur noch 
neun Zeichen lang, bei gleichem Inhalt! 

Um ihn sich ansehen zu können, muß er natürlich erst wieder 
in eine lesbare Form gebracht, also »entpackt« werden. 

Bei selbstgeschriebenen Adressenverwaltungen läßt sich 
das gut anwenden: 

Bevor man die Adressen, die ja meist in Strings enthalten 
sind, auf der Diskette abspeichert, »packt« man sie mit dem 
Daten-Packer, und speichert sie dann. So spart man eine Men¬ 
ge wertvollen Diskettenplatz und Ladezeit. 

Nach dem Einladen müssen die Adressen wieder »entpackt« 
werden, bevor man mit ihnen Weiterarbeiten kann. 

Das Programm (siehe Listing) wird mit dem MSE eingege¬ 
ben und ist dann sofort einsatzbereit. 

Umgang mit dem Daten-Packer 

Packen: SYS 49152, A$, B$ 

In A$ muß der zu packende String stehen. Danach enthält 
B$ die gepackte Version. 

Entpacken: SYS 49339, C$, D$ 

in C$ muß der gepackte String stehen. In D$ ist dann der ent¬ 
packte String zur Weiterverarbeitung bereit. 


Daten 

komprimieren 
— Sparen Sie 
Speicherplatz 
und Ladezeit! 
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Natürlich kann an Stelle von A$, B$, und D$ jede andere 
Stringvariable stehen. 

Das geht doch nicht mit rechten Dingen zu, wird der eine 
oder andere Leser jetzt vielleicht denken. 

Nun, dieses Programm kürzt 4 Byte auf 3 Byte. Ein Byte hat 
bekannterweise 8 Bit, gebraucht werden aber nur 6 Bit, um die 
ASCII-Werte darzustellen, aus denen Datenstrings ja beste¬ 
hen. 

Mit diesen 6 Bit kann man alle alphanumerischen Zeichen 
und einige Sonderzeichen darstellen. Der Alogrithmus des 
Programms besteht nun darin, vom ASCII-Wert des zu packen¬ 
den Byte 32 abzuziehen, um eine Darstellung mit 6 Bit zu er¬ 
möglichen. Dann wird jedes vierte Byte auf die vorhergehen¬ 
den 3 Byte verteilt, bei denen die letzten 2 Bit nach unserer 
Subtraktion nun nicht mehr gebraucht werden. »Überhang- 
Bytes«, also die letzten Zeichen eines Strings, die keine vollen 
4 Byte mehr ergeben, werden nicht gepackt, sondern nur an 
den gepackten String angehängt. 

Beim Entpacken läuft der Vorgang in umgekehrter Reihenfol¬ 
ge ab. (Joachim Matzner/gk) 


PROGRAMM ! PACKROUTOBJ C000 C1EB 


C000 


20 

9C 

C0 

20 

6D 

CI 

AB 

00 

0A 

C008 


A2 

00 

Bl 

22 

38 

E9 

20 

0A 

C2 

C010 


0A 

9D 

EE 

CI 

EB 

CB 

E0 

03 

3B 

C018 


D0 

F0 

Bl 

22 

38 

E9 

20 

BD 

7F 

C020 


Fl 

CI 

AC 

F3 

CI 

18 

6E 

Fl 

16 

C028 


CI 

6E 

EE 

CI 

6E 

Fl 

CI 

6E 

6E 

C030 


EE 

CI 

6E 

Fl 

CI 

6E 

EF 

CI 

AB 

C038 


6E 

Fl 

CI 

6E 

EF 

CI 

6E 

Fl 

BB 

C040 


CI 

6E 

F0 

CI 

6E 

Fl 

CI 

6E 

07 

C048 


F0 

CI 

AD 

EE 

CI 

99 

F5 

CI 

A6 

C050 


CB 

AD 

EF 

CI 

99 

F5 

CI 

CB 

05 

C05B 


AD 

F0 

CI 

99 

F5 

CI 

CB 

BC 

CA 

C060 


F3 

CI 

AD 

F4 

CI 

1B 

69 

04 

CB 

C068 


8D 

F4 

CI 

CD 

F2 

CI 

F0 

28 

EB 

C070 


18 

69 

04 

CD 

F2 

CI 

F0 

02 

FD 

C078 


B0 

06 

AC 

F4 

CI 

4C 

0B 

C0 

15 

C0B0 


AE 

F3 

CI 

AC 

F4 

CI 

Bl 

22 

96 

C0B8 


38 

E9 

20 

9D 

F5 

CI 

CB 

E8 

D3 

C090 


CC 

F2 

CI 

D0 

Fl 

BE 

F3 

CI 

47 

C098 


20 

BB 

CI 

60 

20 

FD 

AE 

20 

FF 

C0A0 


8B 

B0 

85 

64 

84 

65 

20 

A3 

AC 

C0AB 


B6 

A0 

00 

Bl 

47 

BD 

F2 

CI 

15 

C0B0 


C8 

Bl 

47 

85 

22 

CB 

Bl 

47 

91 

C0B8 


85 

23 

60 

20 

9C 

C0 

20 

6D 

16 

C0C0 


CI 

AB 

A2 

00 

Bl 

22 

9D 

EE 

FE 

G0CB 


CI 

CB 

E8 

E0 

03 

DB 

F5 

20 

12 

C0O0 


76 

CI 

AC 

F3 

CI 

A2 

00 

BD 

7D 

C0DB 


EE 

CI 

99 

F5 

CI 

EB 

CB 

E0 

14 

C0E0 


04 

DU 

F4 

8C 

F3 

CI 

AD 

F4 

09 

C0E8 


CI 

1B 

69 

03 

BD 

F4 

CI 

CD 

93 

C0F0 


F2 

CI 

F0 

52 

69 

B3 

CD 

F2 

15 

C0F8 


CI 

F0 

23 

B0 

06 

AC 

F4 

CI 

2D 

CI 00 


4C 

C2 

C0 

AC 

F4 

CI 

AE 

F3 

73 

C108 


CI 

Bl 

22 

18 

69 

20 

9D 

F5 

27 

C110 


CI 

CB 

E8 

CC 

F2 

CI 

D0 

Fl 

6D 

CI 18 


8E 

F3 

CI 

4C 

69 

CI 

A2 

00 

C9 

C120 


AC 

F4 

CI 

Bl 

22 

9D 

EE 

CI 

3B 

C128 


C8 

E8 

E0 

03 

1)0 

F5 

2C 

EE 

4B 

CI 30 


CI 

30 

19 

70 

17 

2C 

EF 

CI 

74 

CI 38 


30 

12 

70 

10 

2C 

F0 

CI 

30 

41 

C140 


0B 

n 

09 

4C 

03 

CI 

AD 

F3 

2C 

C148 


CI 

4C 

67 

CI 

20 

76 

CI 

AC 

DB 

CI 50 


F3 

CI 

A2 

00 

BD 

EE 

CI 

99 

5A 

CI 58 


F5 

CI 

EB 

CH 

E0 

04 

D0 

F4 

DC 

CI 60 


AD 

F3 

CI 

18 

69 

04 

UI) 

F3 

4F 

C16B 


CI 

20 

BB 

CI 

60 

A9 

00 

BD 

CF 

C170 


F4 

CI 

8D 

F3 

CI 

60 

A9 

00 

EC 

C178 


8D 

Fl 

CI 

AA 

18 

2E 

F0 

CI 

FE 

CI 80 


2E 

Fl 

CI 

2E 

F0 

CI 

2E 

Fl 

97 

C18B 


CI 

2E 

EF 

CI 

2E 

Fl 

CI 

2E 

6A 

CI 90 


EF 

CI 

2E 

Fl 

CI 

2E 

EE 

CI 

F6 

CI 98 


2E 

Fl 

CI 

2E 

EE 

CI 

2E 

Fl 

BF 

C1A0 


CI 

BD 

EE 

CI 

4A 

4A 

IS 

69 

5E 

C1A8 


20 

9D 

EE 

CI 

EB 

E0 

03 

D0 

CE 

C1B0 


F0 

AD 

Fl 

CI 

18 

69 

20 

BD 

94 

C1BB 


Fl 

CI 

60 

20 

FD 

AE 

20 

BB 

93 

C1C0 


B0 

85 

49 

84 

4A 

B5 

64 

B4 

Bl 

C1C8 


65 

20 

A3 

B6 

AD 

F3 

CI 

20 

BF 

C1D0 


75 

B4 

A0 

00 

B9 

61 

00 

91 

91 

C1D8 


49 

CB 

C0 

03 

D0 

F6 

AB 

00 

SD 

C1E0 


B9 

F5 

CI 

91 

62 

CB 

C4 

61 

79 

C1E8 


D0 

F6 

60 

A5 

B6 

D0 

25 

33 

ED 


Das Listing zum »Datenpacker«. Eingabe mit dem MSE. 
Beachten Sie bitte die Eingabehinweise auf Seite 8 


Der C 64 
lernt sprechen 

Dieses Programm ist wohl die billigste 
Sprachein-Zausgabe, die es gibt. Man 
kann sie vielseitig einsetzen, zum Bei¬ 
spiel bei Spielen, sprechenden Menüs 
oder einfach als Spielerei. 

Außer dem C 64 ist für dieses Programm eine Datasette er¬ 
forderlich. Nachdem das Listing abgetippt und das Programm 
mit SYS 49231 gestartet wurde, ändern sich die Bildschirmfar¬ 
ben, und eine Einschaltmeldung erscheint. Jetzt stehen Ihnen 
2045 Byte für Basic-Programme zur Verfügung. Der Grund 
dafür ist, daß die Aufzeichnung von Sprache äußerst speicher¬ 
intensiv ist. Selbst der Bereich unter dem Basic-ROM ($ A000 
bis $BFFF) wird ausgenutzt. Die Tonwiedergabe hat zwar kei¬ 
ne Hi-Fi-Qualität, wenn man aber laut und deutlich spricht, kann 
man sich gut wiedererkennen. Während der Tonein-/ausgabe 
wird der Bildschirm abgeschaltet, damit der Prozessor nicht 
ständig vom Video-Controller unterbrochen wird. 

Das Arbeiten mit diesem Programm ist denkbar einfach. Es 
stehen fünf neue Basic-Befehle zur Verfügung. Der Speicher 
des C 64 wird in verschiedene Abschnitte aufgeteilt (Bild 1), in 
denen Wörter gespeichert werden. Hinter allen Befehlen (au¬ 
ßer — R u d — G) ist anzugeben, in welchen Bereich gespei¬ 
chert werden soll. 

x = 1 bis 16: Diese Abschnitte sind für ein-bis zweisilbige Wör¬ 
ter reserviert. Hier können zum Beispiel Zahlen oder kurze 
Wörter abgelegt werden. 

x = 17: Dies ist ein Abschnitt für 4 Sekunden Sprechzeit. 

Hier kann ein kleiner Satz abgelegt werden, 
x = 255: Hier wird der gesamte Speicher beschrieben, also 
auch die Abschnitte 1 bis 17. Es stehen etwa 13 Sekunden 
Sprechzeit zur Verfügung. 

Alle anderen Zahlen werden als 17 interpretiert. 


Befehle 


Doch nun zu den Befehlen: 

—Lx: »learn« — Nach Eingabe dieses Befehls wird der Bild¬ 
schirm abgeschaltet. Die Tonsignale werden digitalisiert und 
im Speicher abgelegt, x entscheidet, in welchen Bereich die 
Sprache gespeichert wird. 

—Sx: »say« — Bei diesem Befehl wird ebenfalls der Bildschirm 
gelöscht. Aus dem Lautsprecher des Fernsehgerätes ertönt 
nun Ihre eigene Stimme. Im Gegensatz zu dem Befehl »learn« 
benötigt dieser Befehl keinerlei Hardware. Er kann also ohne 
irgendwelchen Umbau benutzt werden, x entscheidet, aus 
welchem Bereich die Sprache entnommen wird. 

—P”Filename”x: »put« — Mit diesem Befehl kann die Spra¬ 
che, die sich im Speicher befindet, auf Diskette gespeichert 
werden. Da das Speichern von Sprache sehr aufwendig ist, 
belegen 13 Sekunden Sprechzeit 178 Blöcke, x gibt an, in wel¬ 
chem Bereich die Sprache gespeichert wird. 

—G”Filename”: »get« — Dieser Befehl wird zum Laden der 
Sprache benutzt. 

*-R: »rate«—Mit diesem Befehl läßt sich die Sprechgeschwin¬ 
digkeit einstellen. Nach dem Befehl muß ein numerischer Aus- 
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Programm 

: spräche 


C000 

c258 

C0b8 

: 

cl 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

Be 

c 188 

3 

ca 

dB 

ec 

91 

fa 

86 

ff 

88 

lc 












C0C0 

: 

a2 

0B 

a0 

01 

20 

ba 

ff 

a2 

CC 

Cl90 

3 

d0 

e3 

e6 

fb 

a5 

fb 

c5 

fc 

d6 












C0CB 

: 

3c 

a0 

03 

a5 

ff 

20 

bd 

ff 

C2 

C19B 

: 

d0 

d9 

ad 

11 

d0 

09 

10 

Bd 

93 

C000 

s 

93 

90 

20 

20 

20 

20 

20 

20 

ab 

C0d0 

: 

a9 

00 

a2 

00 

a0 

00 

20 

d5 

58 

cla0 

: 

ii 

d0 

58 

a9 

81 

8d 

0d 

de 

d7 

C00B 

: 

2a 

2a 

2a 

20 

56 

4f 

49 

43 

62 

c0d8 

: 

ff 

ea 

4c 

e4 

a7 

20 

13 

cl 

47 

c la8 

3 

28 

4c 

e7 

a7 

ea 

e0 

ff 

fB 

7d 

C010 

: 

45 

20 

36 

34 

20 

53 

59 

53 

22 

C0e0 

: 

28 

20 

9b 

b7 

08 

20 

88 

C0 

lb 

clb0 

: 

09 

a9 

9f 

85 

f b 

a9 

C0 

85 

41 

C018 

: 

54 

45 

4d 

20 

56 

32 

2e 

30 

76 

c0eB 


a9 

36 

85 

01 

a2 

08 

20 

ba 

8e 

c lb8 

: 

fc 

60 

a9 

10 

85 

fb 

a9 

C0 

bl 

C020 

: 

20 

2a 

2a 

2a 

0d 

0d 

31 

39 

96 

C0f0 

: 

ff 

a2 

3c 

a0 

03 

a5 

ff 

20 

01 

Clc0 

3 

85 

fc 

60 

Ba 

69 

0f 

Bd 

0d 

8c 

C028 

: 

30 

35 

20 

42 

59 

20 

4d 

2e 

73 

C0f B 

s 

bd 

ff 

a2 

00 

a4 

fb 

B6 

fd 

9e 

clcB 

8 

c2 

28 

4c 

e7 

a7 

00 

00 

00 

29 

C030 

: 

4b 

4c 

49 

4e 

47 

45 

52 

20 

e6 

C100 

i 

84 

fe 

a9 

fd 

a2 

01 

a4 

fc 

ec 

cld0 

3 

00 

00 

00 

00 

00 

00 

00 

00 

dl 

C03B 


20 

32 

30 

34 

35 

20 

42 

41 

e4 

C10B 

s 

20 

d8 

ff 

a9 

37 

85 

01 

28 

bd 

cld8 

: 

00 

00 

00 

00 

00 

a9 

36 

85 

0a 

C040 

: 

53 

49 

43 

20 

42 

59 

54 

45 

dB 

C110 

: 

4c 

e7 

a7 

20 

73 

00 

C9 

22 

e0 

cle0 

3 

01 

a9 

7f 

Bd 

0d 

de 

78 

ad 

3c 

C048 

: 

53 

20 

46 

52 

45 

45 

00 

a9 

59 

cl 18 

: 

f0 

03 

4c 

08 

af 

ea 

.10 

00 

73 

cleB 

3 

11 

dB 

29 

ef 

Bd 

u 

dB 

ea 

24 

C050 

s 

00 

a0 

C0 

20 

le 

ab 

a9 

0f 

dB 

cl20 

s 

20 

73 

00 

c9 

22 

f0 

0b 

99 

3c 

Clf0 

3 

a9 

00 

85 

bb 

a5 

fb 

85 

bc 

3c 

C058 

: 

8d 

21 

d0 

a9 

0b 

8d 

20 

d0 

le 

cl28 

3 

3c 

03 

cB 

C0 

10 

f 0 

03 

4c 

5d 

cif 0 

3 

dH 

00 

a2 

08 

bl 

bb 

0a 

48 

f 4 

C060 

: 

4c 

42 

c2 

00 

00 

00 

20 

73 

e5 

c 130 

3 

20 

cl 

ea 

B4 

ff 

60 

00 

00 

7f 

c200 

3 

90 

0a 

a9 

0f 

8d 

18 

d4 

a9 

22 

C068 

: 

00 

08 

c9 

5f 

f0 

04 

2B 

4c 

33 

c 138 

8 

00 

00 

c9 

47 

f0 

0c 

c9 

50 

cb 

c20B 

3 

00 

Bd 

18 

d4 

4c 

lc 

c2 

ea 

f 6 

C070 

s 

e7 

a7 

28 

20 

73 

00 

08 

c9 

24 

c 140 

3 

f0 

9b 

c9 

52 

f0 

07 

28 

4c 

3b 

c210 










0f 

C07B 

: 

4c 

f0 

24 

c9 

53 

f0 

2b 

ea 

be 

C14B 

3 

0B 

af 

4c 

b5 

C0 

28 

20 

9b 

f 7 

c21B 

3 

ea 








17 

c080 

: 

4c 

3a 

cl 

ea 

20 

9b 

b7 

08 

85 

c 150 

3 

b7 

0B 

e0 

14 

90 

03 

4c 

48 

a9 

c220 


ea 

ea 

68 

ca 

dB 

dB 

88 

d0 

8a 

C088 

: 

e 0 

11 

90 

04 

ea 

4c 

ad 

cl 

el 

C15B 

3 

b2 

4c 

c3 

Cl 

ea 

ad 

u 

d0 

5b 

c22B 

: 

dl 

e6 

bc 

a5 

bc 

c5 

fc 

d0 

e0 

C090 

: 

ea 

a9 

06 

69 

09 

ca 

d0 

fb 

20 

cl60 

8 

29 

ef 

Bd 

n 

d0 

a9 

7f 

Bd 

7a 

c230 

3 

C7 

ad 

ii 

dB 

09 

10 

Bd 

11 

96 

C098 

: 

85 

fb 

69 

09 

B5 

fc 

60 

28 

aB 

c 168 

3 

0d 

de 

78 

a9 

00 

85 

fa 

a5 

9a 

C23B 


dB 

58 

a9 

37 

85 

01 

ea 

4c 

2a 

C0a0 

: 

20 

9b 

b7 

08 

20 

88 

C0 

4c 

5f 

cl/0 

3 

fb 

85 

fb 

a0 

00 

a2 

08 

ad 

dl 

C210 

1 

a3 

Cl 

a9 

66 

8d 

08 

03 

a9 

73 

C0a8 

: 

5d 

cl 

2B 

20 

9b 

b7 

0B 

20 

cc 

C17B 

3 

0d 

de 

4a 

4a 

4a 

4a 

85 

fe 

da 

C24Ö 

■ 

C0 

Bd 

09 

03 

a9 

10 

85 

34 

0b 

c0b0 

: 

BB 

C0 

4c 

dd 

cl 

2B 

20 

13 

6b 

C180 

8 

06 

ff 

a5 

ff 

05 

fe 

85 

ff 

4d 

c250 

8 

B5 

38 

20 

44 

a6 

4c 

74 

a4 

6a 


Listing zum Programm »Der C 64 lernt sprechen«. Bei der Eingabe Seite 8 beachten. 



Bild 2. So schließt man ein Mikrofon an die Datasette an 


S‘000 _ SCOOO 


1 

2 

3 

4 

5 

6 

7 


g 

10 


12 

13 

14 

15 

16 17 

1 

'w^mÜba.«: 

— 
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Bild 1. Bereichs- und Speicheraufteilung nach dem Start 


druck folgen, der die Geschwindigkeit angibt. Erlaubt sind 
Zahlen von 0 bis 19. Dabei entspricht 19 der schnellsten 
Sprechgeschwindigkeit und 0 der langsamsten. Alle anderen 
Zahlen werden mit einer Fehlermeldung quittiert. Die Grund¬ 
einstellung ist 13. Das ist etwa die normale Sprechgeschwin¬ 
digkeit. 

Jetzt werden Sie sich fragen, wie man in den Computer hin¬ 
einspricht. Dazu ist natürlich ein Mikrofon erforderlich und so¬ 
mit auch ein wenig Umbau. Aber keine Angst, der Umbau hält 
sich in Grenzen. Es ist jedoch erforderlich, die Datasette zu 
öffnen. Lösen Sie dazu die vier Schrauben auf der Rückseite 
Nachdem der Deckel abgenommen wurde, läßt sich auf einer 
Seite eine Platine erkennen, die mit einer Aluminiumfolie abge¬ 
schirmt ist. Auf der Seite, wo sich die Drucktasten befinden, 
ragt eine Anschlußleiste unter der Folie hervor (Bild 2). Löten 
Sie nun an die in Bild 2 gekennzeichneten Punkte eine Mikro¬ 
fonbuchse an. Das war schon der ganze Umbau. Wollen Sie 
die Datasette wieder als Massenspeicher benutzen, darf das 
Mikrofon nicht mit der Buchse verbunden sein, da Geräusche 
im Raum den Datentransfer zwischen Datasette und Compu¬ 
ter stören. 

(Martin Klinger/ah) 
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Basic-Erweiteru ngen 


ON ERROR 
GOTO 


Routinen, die bei einem auftretenden 
Programmfehler zu einer bestimmten 
Zeile verzweigen, sind inzwischen 
Standardausrüstung jeder guten Ba- 
sic-Erweiterung. Das vorliegende Ma¬ 
schinenprogramm ist nur 88 Byte lang. 

Um einen Fehler während des Programmlaufs abzufangen, 
Kennen viele Computer den Befehl ON ERROR GOTO. Mit die¬ 
sem kurzen Maschinenprogramm kann auch Ihr C 64 auf Feh¬ 
ler im Programm reagieren. 

Nachdem das Programm (Listing 1) im Speicher steht, kann 
es mit SYS 50000, ZL aktiviert werden. Dabei bedeutet ZL die 
Zeilennummer, zu der bei einem Fehler verzweigt werden soll. 
Die Fehlernummer wird dann in Speicherstelle 2 gespeichert 
und kann mit PEEK(2) abgefragt werden. Tabelle 1 zeigt, wel¬ 
che Nummer welcher Fehlermeldung entspricht. Die Zeile, in 
der der Fehler auftrat, wird in Speicherstelle 249 und 250 ge¬ 
speichert. Damit Sie zu der fehlerhaften Zeile zurückspringen 
können, wurde noch die Routine »GOTO X« eingebaut. Damit 
läßt sich zu einer berechneten Zeile springen. Aufgerufen wird 
diese Routine mit SYS 50076, ZL. Schauen wir uns einmal das 
Beispiel ab Zeile 200 im Basic-Lader an. In Zeile 210 wird mit 
SYS 50000, 1000 die Fehlerbehandlungsroutine auf Zeile 
1000 gelegt. In Zeile 220 wird der Benutzer aufgefordert, eine 
Zahl einzugeben. Solange diese Zahl positiv ist, wird in Zeile 
230 die Wurzel aus dieser Zahl errechnet und ausgegeben. 
Bei einer negativen Zahl wird zur Zeile 1000 verzweigt. Hier 
wird die Fehlernummer ausgegeben. In diesem Falle 14. In Zei¬ 
le 1010 wird nun die Zeile errechnet, in der der Fehler auftrat 
und ausgegeben. Zeile 1020 schließlich ruft die »GOTO X«- 
Routine auf und springt in die Zeile ZL —10. 

Listing 2 zeigt den dokumentierten Assemblerteil der Routi¬ 


ne. (Kunz/tr) 


100 REM *** ON ERROR UND GOTO X *** <029> 

101 DATA 32,253,174,32,107,169,165,20 <202> 

102 DATA 164,21,133,247,132,248,169,116 <191> 

103 DATA 160,195,141,0,3,140,1,3,96,169 <18B> 

104 DATA 139,160,227,141,0,3,140,1,3 <006> 

105 DATA 96,138,48,30,165,58,201,255 <148> 

106 DATA 240,27,134,2,165,57,164,58,133 <145> 

107 DATA 249,132,250,165,247,164,248 <193> 

108 DATA 133,20,132,21,32,163,168,76 <254> 

109 DATA 174,167,76,116,164,138,76,58 <188> 

110 DATA 164,32,253,174,32,13B,173,32 <156> 

111 DATA 247,183,76,143,195 <154> 

112 S=0:FOR 1= 50000 TO 50087 sREAD D <150> 

113 POKE I,D:S=S+DsNEXT <177> 

114 PRINT"DIE DATAZEILEN SIND“ <206> 

115 IF 8010886 THEN PR INT" FEHLERHAFT" s STO 

P <163> 

116 PRINT“IN ORDNUNG"SEND <113> 

120 s <096> 

130 s <106> 

200 REM BEISPIEL FUER ON ERROR UND GOTO X <028> 

210 SYS 50000,1000 <244> 

220 INPUT"EINE ZAHL ";A <237> 

230 WU=SQR<A>:PRINT"DIE WURZEL AUS"A" = "WU <130> 

240 END <242> 

1000 PRINT"FEHLER NUMMER“PEEK(2) <214> 

1010 ZL=PEEKC249)+PEEK<250)*256-10 <239> 

1020 SYS 50076,ZL <039> 


Listing 1. Der Basic-Lader zu »On-Error«. Bitte verwenden 
Sie zur Eingabe den neuen Checksummer (Seite 6.) 


Fehlernummer Fehlermeldung 

1 TOO MANY FILES 

2 FILE OPEN 

3 FILE NOT OPEN 

4 FILE NOT FOUND 

5 DEVICE NOT PRESENT 

6 NOT INPUT FILE 

7 NOT OUTPUT FILE 

8 MISSING FILENAME 

9 ILLEGAL DEVICE NUMBER 

10 NEXT WITHOUT FOR 

11 SYNTAX 

12 RETURN WITHOUT GOSUB 

13 OUT OF DATA 

14 ILLEGAL QUANTITY 

15 OVERFLOW 

16 OUT OF MEMORY 

17 UNDEF’D STATEMENT 

18 BAD SUBSCRIPT 

19 REDIM’D ARRAY 

20 DIVISION BY ZERO 

22 TYPE MISMATCH 

23 STRING TOO LONG 

24 FILE DATA 

25 FORMULA TOO COMPLEX 

27 UNDEFD FUNCTION 

28 VERIFY 

29 LOAD 


Tabelle 1. Die Fehlermeldungen des Betriebssystems, je¬ 
weils mit dem Zusatz »ERROR«. 


.ba=50000 
jsr $aefd 
jsr $a96b 

Ida S’4 
ldy $ io 
sta $f7 
sty $f8 

Ida #$74 
ldy #$c3 
sta $0300 
sty $0301 
rts 

; prüft auf Komma 
; holt Zeilennummer nach $14/$15 

; Zeilennummer in 

; $f7/$f8 speichern 

; Vektor für Fehlermeldung 

; auf neue Routine 

Ida 

#$8b 


ldy 

#$e3 

; Vektor für Fehlermeldung 

sta 

$0300 

; zurückstellen 

sty 

$0301 


rts 



txa 



bmi 

noerr 

; größer 127 dann kein Fehler 

Ida 

$3a 


cmp 

#$ff 

; Direktmodus? 

beq 

dirmod 

: ja 

stx 

$02 

; Fehlernummer speichern 

Ida 

$39 


ldy 

$3a 

; Momentane Zeilennummer 

sta 

$f9 

; nach $f9/$fa 

sty 

$fa 


Ida 

$f7 


ldy 

$f8 

; Zeilennummer für on error 

sta 

$14 

; nach $14/$ 15 

sty 

$15 


go jsr $a8a3 

; goto-Befehl 

jmp 

$a7ae 

; Zur Interpreterschleife 

noerr jmp $a474 

; ready ausgeben 

dirmod txa 


jmp 

$a43a 

; Fehlermeldung ausgeben 

routine goto x 


jsr 

$aefd 

; prüft auf Komma 

jsr 

$ad8a 

; numerischen Wert holen 

jsr 

$b7f7 

; nach $15/$14 wandeln 

jmp 

go 



Listing 2. Der dokumentierte Assemblerteil. 
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Tips & Tricks 


Übersicht¬ 
liches Listing 

Diese kleine Erweiterung spaltet beim 
Listen eine Programmzeile in mehrere 
Zeilen auf. Dadurch wird die Analyse 
auch komplizierter Programmteile 
zum Kinderspiel. 

Die Idee zu dieser Erweiterung kam durch den Einzeiler- 
Wettbewerb im 64’er-Magazin, bei dem die abgedruckten Pro¬ 
gramme durch ihre gedrängte Darstellung schlecht lesbar wa¬ 
ren. Damit ist nun Schluß. Wenn in einer Programmzeile ein 
Doppelpunkt vorkommt, so wird der darauf folgende Befehl in 
die nächste Zeile geschrieben. 

Beispiel: 

Aus 

10 A=53280:POKE A,l:POKE A+1,I+1:I=PEEK(53248+ 

18):GOTO 10 

wird 

10 A= 53280 
POKE A,l 
POKE A+1,l+1 
l=PEEK (53248+18) 

GOTO 10 

Die Erweiterung liegt in dem Bereich von 49152 bis 49239, 
nimmt also keinen Basic-Speicherplatz in Anspruch. Sie läßt 
sich aber beliebig verschieben, damit sie auch bei Basic- 
Erweiterungen funktioniert, die den Bereich ab 49152 benut¬ 
zen (man muß nur den Wert der Variablen ADRESSE in Zeile 0 
ändern). Die 87 Byte lange Erweiterung läßt sich mit POKE 2,0 
einschaiten und mit POKE 2,1 wieder ausschalten. 


So arbeitet die Routine 


Das Maschinenprogramm liegt als Basic-Lader (Listing 1) 
und als Source-Code (Listing 2) vor. Zuerst wird der LIST- 
Vektor auf die neue Routine gePOKEt, dann erfolgt ein Rück¬ 
sprung zum Basic. In der neuen LIST-Routine wird abgefragt, 
ob es sich bei dem zu listenden Zeichen um einen Befehl han¬ 
delt. Ist dies der Fall, so wird zu der Routine gesprungen, die 
den Befehl ausgibt. 

Anschließend erfolgt eine Überprüfung auf einen Doppel¬ 
punkt. Handelt es sich nicht um dieses Zeichen, so wird normal 
weitergelistet. Andernfalls findet eine Überprüfung der Spei¬ 
cherstelle 2 statt. Ist sie nicht 0, so wird der Doppelpunkt aus¬ 
gegeben und mit dem normalen Listing weitergemacht. Steht 
in der Speicherstelle 2 eine 0, so wird ein CHR$( 13) ausgege¬ 
ben. 

Im darauffolgenden Teil werden die untereinanderstehenden 
Teilprogrammzeilen linksbündig gemacht und ausgegeben. 
Danach wird wieder zum »normalen« Listing gesprungen. 

Die Routine »Übersichtliches Listing« ist in erster Linie natür¬ 
lich für das Arbeiten mit einem Drucker gedacht, denn eine 
Bildschirmausgabe mit einem Basic-Befehl pro Zeile würde 
den Vorteil der erhöhten Übersicht wohl bald zunichte ma¬ 
chen, jedenfalls bei längeren Programmen. Der Einsatz¬ 
schwerpunkt dieser Routine liegt damit bei der Analyse frem¬ 
der, unübersichtlicher Programme mittels eines Druckers. 

(Frank Barcikowski/ev) 


0 ADRESSE = 49152:REM BELIEBIG <0B7> 

1 REM ******************* <113> 

2 REM * WRITTEN BY * <207> 

3 REM »FRANK BARCIKOWSKI* <007> 

4 REM * MORAENENWEG 33 * <250> 

5 REM *3320 SALZGITTER—1* <077> 

6 REM ******************* <118> 

10 FOR 1=ADRESSE TO ADRESSE+87 <213> 

20 READ A:S=S+A:POKE I,A <215> 

30 NEXT <040> 

31 IF S<>10407 THEN PRINT"DATA ERROREND <062> 

35 REM DEM JEWEILIGEN BERREICH ANPASSEN <103> 

36 HI^INT(<ADRESSE*11)/256) <157> 

37 LO=ADRESSE+ll-INT<(ADRESSE+11>/256>*256 <179> 

38 POKE ADRESSE+6,HI <107> 

39 POKE ADRESSE+1,LO <069> 

40 SYS ADRESSE:POKE 2,0:END <006> 

50 REM- < 100> 

60 REM EINSCHALTEN DER ERWEITERUNG : <008> 

70 REM POKE 2,0 <0B9> 

80 REM- < 130> 

90 REM AUSSCHALTEN DER ERWEITERUNG : <104> 

99 REM POKE 2,00 <007> 

100 REM- <150> 

101 DATA 169,11,141,6,3,169,48,141,7,3,96, 

16,3,76,28,167,201,58,240,3,76,243 <093> 

102 DATA 166,166,2,240,3,76,243,166,169,13 

,32,210,255,152,72,160,2,177,95 <003> 

103 DATA 170,200,177,95,133,98,134,99,162, 

144,56,32,73,188,32,223,189,162 <209> 

104 DATA 0,189,0,1,240,3,232,208,248,169,3 

2,32,210,255,202,208,250,104,168 <038> 

105 DATA 169,32,76,243,166,48,141,7,7,96 <1B0> 


© 64 'er 

Listing 1. »Übersichtliches Listing« als Basic-Lader. 
Beachten Sie die Eingabehinweise auf Seite 6. 


2 

20: 

3000 





. opt 

Pl 

25: 

3000 




list 

=> 

*0306 

26: 

3000 




altlist 

= 

*a71c 

30: 

3000 






*3000 

40: 

3000 

a9 

0b 



lda 

«Kniist 

50: 

3002 

Bd 

06 

03 


sta 

list jlistvektor verbiegen 

60: 

3005 

a9 

30 



lda 

#>nlist 

70: 

3007 

Bd 

07 

03 


sta 

list +1 

B0: 

300a 

60 




rts 

3wieder zu basic 






-- 

- neue 1 ic.tr out »no--- 

90: 

300b 

10 

03 


nlist 

bpi 

nint jpruefung auf inter- 

100: 

300d 

4c 

lc 

a7 


jmp 

altlist ;pretercodo 0*80) 

110: 

3010 

c9 

3a 


nint 

cmp 

#*3a ;code fuer 

110: 

3012 







120: 

3012 

f0 

03 



beq 

doppelp jcode gefunden 

130: 

3014 

4c 

<3 

a6 


jmp 

*a6-f 3 ; weiter listen 






;- 

dopp 

slpunkt gefunden - 

137: 

3017 

a6 

02 


doppelp 

ldx 

2 l2 laden 

138: 

3019 

<0 

03 



boq 

ok ;wenn 0 dann newliat 

139: 

301b 

4c 

f 3 

a6 


jmp 

ta6f3 ;sonst altlist 

140: 

301o 

a9 

0d 


ok 

lda 

#13 3roturn 

150: 

3020 

20 

d2 

Ff 


jar 

*Ffd2 jprinten 

160: 

3023 

98 




ty. 

IV zwischenapeiehern 

170: 

3024 

48 




pha 

3 fuer spaotor 







borochnung der zu - 







printendun space» ------ 

210: 

3023 

.»0 

02 



ldy 

#2 

220: 

3027 

bl 

5f 



lda 

(*5f),y jzeilonnr. Io 

230: 

3029 

aa 




tax 

;merken 

240: 

302a 

cB 




lny 

3zeigor orhoohun 

250: 

302b 

bl 

Sf 



lda 

(*5f),y ;zeilennr. hi 

260: 

302d 

B5 

62 



«ta 

*62 

270: 

302f 

06 

63 



stx 

*63 

280: 

3031 

a2 

90 



ldx 

#*90 

290: 

3033 

3B 




»ec 


300: 

3034 

20 

49 

bc 


J«r 

•bc49 iiBllonnr. in fac 

310: 

3037 

20 

df 

bd 


J«r 

*bddf jFac nach aocii und *0100 






1 


3nach *0100 

330: 

303a 

a2 

00 



ldx 

#0 

340: 

303c 

bd 

00 

01 

loop 

lda 

1100.x 

350: 

303» 

f0 

03 



beq 

endloop »0 ■ stringende 

360: 

3041 

cB 




inx 

;zaehler für cpace 

370: 

3042 

d0 

f 8 



bne 

loop 






;- 

cpace 

x mal printen - 

300: 

3044 

a9 

20 


ondloop 

lda 

#32 ;space laden 

400: 

3046 

20 

d2 

ff 

prin 

j »r 

*f Fd2 3printen 

410: 

3049 

ca 




dex 


420: 

304a 

d0 

fa 



bne 

prin ;schon Fertig 

430: 

304c 

68 




pla 

;y wiederholen 

435: 

304d 

aB 




tay 


440: 

304o 

a9 

20 



lda 

•32 ;space in accu 

450: 

3050 

4c 

♦ 3 

ah 


jmp 

*a6F 3 ; accu printen 






;und weiterlisten 

Listing 2. Assembler-Listing zu »Übersichtliches 

Listing«. 

Es dient nur zur Dokumentation, braucht 

also nicht eingegeben zu werden. 
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Tips & Tricks 


Programmie¬ 
ren Sie Ihre 
Tastatur! 

Mit diesem Programm werden nicht 
nur die Funktionstasten, sondern die 
gesamte Tastatur frei programmierbar. 

Wenn Sie das Programm KEY-PROGGER (Listing 1) einge¬ 
geben haben, können Sie es mit LOAD "KEY-PROGGER",1,1 
oder, wenn Sie ein Diskettenlaufwerk besitzen, mit 
LOAD "KEY-PROGGER" ,8,1 laden. Nach dem Laden geben 
Sie am besten den Basic-Befehl NEW ein, da Sie sonst später 
eine OUT OF MEMORY-Meldung erhalten. Nun sind Sie so¬ 
weit, daß Sie das Programm mit SYS 49152 starten können. 
Nach dem Starten ist jedoch keine Veränderung zu bemerken. 
Durch den SYS-Befehl wird nur die Tastaturabfrage über eine 
neue Routine geleitet, welche die Tastenfunktionen aus einer 
Tabelle liest, die im RAM steht, und daher verändert werden 
kann. Wie aber ändert man nun die Tastenbelegung? Dazu ist 
der leistungsfähige #-Befehl implementiert. Damit KEY- 
PROGGER mit möglichst vielen Erweiterungen zusammenar¬ 
beitet, ist es möglich, diesen Befehl ein- und auszuschalten. 
Um also die Tastenbelegung zu ändern, muß dieser Befehl zu¬ 
erst eingeschaltet werden. Dies geschieht mit SYS 49152+3. 
Ausgeschaltet wird er mit SYS 49152+6. Die Anwendung des 
#-Befehls ist sehr einfach. Sie geschieht in der Form: 

#nr,string 

nr entspricht in den allermeisten Fällen dem ASCII-Wert ei¬ 
nes Zeichens. Alle möglichen Tastaturzuordnungen sind in Bild 
1 aufgeführt. Wo dies nicht so ist, kann die Nummer mit einem 
kleinen Programm festgestellt werden: 

10 FOR 1=0 TO 255 
20 # l,STR$(l) 

30 NEXTI 

Nachdem dieses kleine Programm mit RUN gestartet wird, 
erscheint beim Druck auf jede Taste eine Zahl auf dem Bild¬ 
schirm. Diese Zahl ist die Nummer der Taste. Es sind jedoch 
nicht alle 256 Werte von der Tastatur aus erreichbar. Insge¬ 
samt erhält man jedoch 187 programmierbare Tastenfunktio¬ 
nen. Diese Zahl reduziert sich jedoch noch einmal, da es nicht 
sinnvoll ist, manche Tasten, wie zum Beispiel die RETURN- 
Taste umzudefinieren, da diese wichtige Funktionen erfüllen. 


Mit dem # -Befehl können jeder Taste bis zu 10 Zeichen zu¬ 
geordnet werden. Versuchen Sie es doch einmal, zum Beispiel 
mit: 

#12,"LIST"+CHR$(13) 

Wenn Sie nun gleichzeitig CTRL und L drücken, erscheint 
der Befehl LIST auf dem Bildschirm und wird gleich ausgeführt. 
Haben Sie nach einer Zeit des Herumprobierens den Wunsch, 


Tastencodes: 

— 1 234867890+-E 

95 49 50 51 52 53 54 55 56 57 48 43 45 92 

HOME DEL 

19 20 

Fl 

133 

CTRL QWERTYUIOP® 
81 87 69 82 84 89 85 73 79 80 64 

* I RESTORE 

42 94 


F3 

134 

stop 5WfT ASDFGHJKL: ;■ 

3 lock 65 83 68 70 71 72 74 75 76 58 59 61 

RETURN 

13 


FS 

135 

C= SHIFT Z X C V B N M , . / 

SHIFT 

1 - 


F7 

90 88 67 86 66 78 77 44 46 47 


17 29 


136 

SPACE 

32 

Zusammen mit SHIFT: 

- 1 *#$M&/()0 + -£ 

33 34 35 36 37 38 39 40 41 219 221 169 

CLR INST 
147 148 


F2 

137 

CTRL QWERTYUIOP® 
209 215 197 210 212 217 213 201 207 208 186 

* X RESTORE 

192 222 


F4 

138 

ruh stnrr ASDFGHJKL 1 ] = 

131 lock 193 211 196 198 199 200 202 203 204 91 93 

RETURN 

141 


F6 

139 

C= SHIFT ZXCVBNM<>? 

218 216 195 214 194 206 205 60 62 63 

SHIFT 

1 - 

145 157 


F8 

140 

SPACE 

160 

Zusammen mit C—: 

-1234567890 + -E 

139 149 150 151 152 153 154 1S5 166 220 168 

CLR DEL 


F2 

CTRL QW ERTYUIOP® 
171 179 177 178 163 183 184 162 185 175 164 

* i 

223 

r RESTORE 


F4 

run ssnT ASDFGHJKL [ 
LOCK '” r 174 172 187 165 180 181 161 182 

] = 

RETURN 


F6 

C= SHIFT ZXCVBNM<> ? 
173 189 188 190 191 170 167 

SHIFT 

1 - 


F8 

SPACE 





Zusammen mit CTRL: 





-1234S67890+- 
6 * 144 5* 28* 159 156 30* 31* 1S8 18*’ 146 

- £ 
28* 

HOME 

DEL 

Fl 

CTRL QWERTYUIOP® 
17* 23 5* 18* 20* 25 21 9 15 16 0 

* f RESTORE 

30* 


F3 

stopsuft ASDFGHJKL: : = 

lock 1 19* 4 6 * 7 8 10 11 12 27 29* 31* 

RETURN 


F5 

C= SHIFT ZXCVBNM, . / 

26 29 3* 22 2 141 3* 

SHIFT 

1 - 


F7 

SPACE 





*Die Tastenfunktion kann auch auf andere Weise erzeugt werden, zum Beispiel 
CTRL-2 = CTRL-E oder CTRL-M = RETURN 



Bild 1. Tastaturzuordnung auf einen Blick 


Programm : 

key-progger 

C000 

clb6 

C0BB 

: 

03 

Bc 

09 

03 

60 

a9 

b6 

a0 

e4 

Cl20 

3 

65 

fc 

B5 

Fa 

18 

aS 

F7 

65 

ld 












C090 

: 

cl 

B5 

F 7 

B4 

f 8 

86 

F9 

a2 

93 

C12B 

8 

f 9 

85 

F7 

a5 

FB 

65 

Fa 

85 

48 

C000 

: 

4c 

72 

cl 

4c 

B2 

C0 

4c 

67 

ad 

C09B 


00 

B6 

Fa 

a5 

F9 

0 a 

B5 

Fb 

4d 

C130 

3 

FB 

20 

Fd 

ae 

20 

9e 

ad 

24 

83 

C00B 

i 

cl 

4c 

4b 

C0 

4c 

7 F 

cl 

4c 

3b 

C0a0 

3 

a5 

Fa 

2a 

B5 

Fc 

06 

F9 

26 

32 

C13B 

8 

0d 

30 

05 

a2 

16 

4c 

3a 

a4 

e9 

C010 

: 

97 

cl 

4c 

af 

cl 

a9 

00 

a0 

3b 

C0a8 

: 

Fa 

06 

F9 

26 

Fa 

06 

F9 

26 

fd 

cl40 

3 

20 

a6 

b6 

c9 

0b 

90 

05 

a 2 

29 

C018 

s 

a0 

85 

F7 

84 

FB 

a 2 

20 

a 0 

70 

c0b0 

8 

Fa 

18 

a5 

F9 

65 

Fb 

85 

F9 

9f 

c 148 

3 

17 

4c 

3a 

a4 

aa 

a0 

00 

eB 

2 a 

C020 

; 

00 

bl 

F7 

91 

f 7 

cB 

d0 

f 9 

26 

c0b8 

C 

aS 

f a 

69 

fc 

B5 

Fa 

1B 

a5 

aF 

cl50 

8 

ca 

F0 

09 

bl 

22 

91 

F7 

cB 

2b 

C02B 

8 

e6 

FS 

ca 

d0 

f 4 

60 

a9 

00 

50 

C0C0 

3 

F7 

65 

f 9 

85 

f 7 

aS 

FB 

65 

F4 

C15B 

3 

c9 

0d 

d0 

F4 

C0 

0b 

f0 

04 

ab 

C030 

: 

a0 

E>0 

85 

f 7 

B4 

FB 

a 2 

20 

7b 

C0c8 

8 

Fa 

85 

F8 

a 0 

00 

84 

c6 

bl 

7a 

c 160 

3 

a9 

00 

91 

F7 

4c 

ae 

a7 

a9 

99 

C03S 

. 

a0 

00 

bl 

F7 

91 

F 7 

cB 

d0 

el 

c0d0 

3 

F7 

99 

77 

02 

F0 

0 a 

e6 

c6 

3a 

C168 

: 

e4 

a0 

a7 

Bd 

0B 

03 

8c 

09 

15 

C040 

: 

f 9 

e6 

fö 

ca 

d0 

F4 

a9 

35 

09 

c0dB 

: 

cB 

C0 

0 a 

F0 

03 

4c 

cF 

c 0 

f 4 

c 1 70 

3 

03 

60 

20 

15 

C0 

20 

2e 

C0 

95 

C048 

s 

85 

01 

60 

a9 

b6 

a0 

cl 

B5 

le 

c0e0 

3 

4c 

42 

eb 

20 

73 

00 

c9 

23 

fl 

C17B 

3 

20 

4b 

C0 

20 

70 

C0 

60 

20 

41 

C050 

s 

f 7 

84 

f 8 

a2 

00 

a0 

00 

8a 

36 

C0e8 

3 

f0 

06 

20 

79 

00 

4c 

e7 

a7 

64 

C1B0 

3 

Fd 

ae 

20 

d4 

el 

a9 

b6 

a0 

Fe 

C058 

: 

91 

f 7 

cB 

a9 

00 

91 

f 7 

18 

e9 

C0f0 

3 

20 

9b 

b7 

86 

f 9 

a2 

00 

a9 

a4 

clBB 

3 

Cl 

85 

F7 

B4 

f 8 

a9 

f 7 

a2 

9c 

C060 


a5 

f7 

69 

0a 

85 

f 7 

a5 

f 8 

3d 

C0FB 

3 

b6 

a 0 

cl 

85 

f 7 

84 

f 8 

B6 

b4 

c 190 

: 

b7 

80 

cb 

20 

dB 

FF 

60 

20 

dd 

C068 

s 

69 

00 

B5 

fB 

<?a 

d0 

e6 

60 

c3 

C100 

: 

Fa 

a5 

F9 

0a 

B5 

Fb 

a5 

fa 

51 

c 198 

3 

fd 

ae 

a9 

00 

85 

0 a 

20 

d4 

2 a 

C070 

: 

a9 

Bd 

a0 

C0 

a 2 

4c 

78 

8e 

ab 

Cl08 

: 

2a 

85 

Fc 

06 

F9 

26 

Fa 

06 

bd 

Cla0 

3 

el 

a9 

01 

85 

b9 

a5 

0 a 

a 2 

7d 

C078 


34 

eb 

8d 

35 

eb 

Bc 

36 

eb 

S0 

C110 

3 

f 9 

26 

fa 

06 

F9 

26 

Fa 

18 

89 

claB 

3 

b6 

a 0 

cl 

20 

d5 

ff 

60 

20 

42 

c0B0 


5B 

60 

a9 

e3 

a0 

C0 

Bd 

CD 

S 

45 

cllB 

3 

a5 

f 9 

65 

fb 

85 

f 9 

a5 

Fa 

47 

clb 0 

3 

4b 

C0 

20 

70 

C0 

60 

ff 

FF 

80 


Listing 1. Hauptprogramm »Frei programmierbare Tastatur«. Bitte beachten Sie die Eingabehinweise auf Seite 8. 
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Tips & Tricks 


die alte Tastaturbelegung wieder herzustellen, so ist dies ganz 
einfach mit dem Befehl SYS 49152+9 möglich. 

Außerdem kann die Belegung der Tastatur gespeichert und 
wieder geladen werden. Die Befehle dazu sind: 

Speichern: SYS 49152+12, "name",ga 
Laden: SYS 49152 + 15, "name'',ga 

»ga« ist dabei die Geräteadresse, also 1 für Kassettenrecorder 
und 8 für Diskettenlaufwerk. So kann jeder seine »ideale« Lö¬ 
sung auf einfachste Weise festhalten. 


Tastatur-Generator 


Die Anwendungsgebiete der programmierten Tastaturen 
sind nahezu unbegrenzt. So läßt sich der C 64 wie der SX 64 
an ein Diskettenlaufwerk anpassen. Mit: 

# 131, * LOAD " +CHR$(34) + " * ' +CHR$(34) + " ,8 " 
wird die RUN/STOP-Taste so umdefiniert, daß nicht mehr ein 
Kassettenprogramm, sondern das erste Programm von der 
Diskette geladen wird. 

Da KEY-PROGGER auch ohne Probleme mit dem DOS 5.1 
zusammenarbeitet, ist jetzt auch ein Directory auf Knopfdruck 
möglich. 

Will man gleichzeitig mit KEY-PROGGER und Hypra-Load 
arbeiten, so muß man erst Hypra-Load und dann KEY- 


PROGGER mit SYS 49152+18 statt mit SYS 49152 starten. 

Am einfachsten ist die Belegung der Tastatur mit dem 
Tastatur-Generator. Nach Abtippen von Listing 2 speichern 
Sie den Tastatur-Generator zuerst ab. Nun laden Sie KEY- 
PROGGER wie oben beschrieben und geben anschließend 
NEW ein. Danach können Sie den Tastatur-Generator laden 
und mit RUN starten. Der Tastatur-Generator startet KEY- 
PROGGER automatisch. Nach zirka fünf Sekunden meldet 
sich der Tastatur-Generator mit der Frage, welche Taste umde¬ 
finiert werden soll. Sie brauchen nur diese Taste zu drücken. 
Der Computer zeigt dann, wie die Taste bisher belegt war. Da¬ 
nach können Sie Ihre neue Belegung in ein 10 Zeichen breites 
Feld eingeben. Die Taste DEL löscht die Eingabe. Mit RETURN 
wird die Eingabe abgeschlossen. Haben Sie einen Befehl ein¬ 
gegeben, der sofort nach Drücken der Taste ausgeführt wer¬ 
den soll, zum Beispiel RUN, so schließen Sie die Eingabe mit 
SHIFT RETURN ab. Drücken Sie RETURN, ohne eine neue 
Belegung eingegeben zu haben, so bleibt die alte Belegung 
erhalten. 

Nach der Eingabe erscheint ein Menü, mit dem Sie die Defi¬ 
nitionen fortsetzen können (1), die letzte Eingabe rückgängig 
machen (2), die neue Tastaturbelegung speichern (3), die ur¬ 
sprüngliche Belegung wieder herstellen (4) oder das Pro¬ 
gramm beenden können (5). Somit kann sich jeder auf ein¬ 
fachste Weise eine individuelle Tastaturbelegung gestalten. 

(Markus Stecher/ah) 


1000 

REM TASTATUR—GENERATOR 

<198> 

1440 PRINT"£DOWN>TASTATURBELEGUNG SPEICHER 


1010 

REM 

<054> 

N...3" 

<094> 

1020 

REM 1985 VON MARKUS STECHER 

<123> 

1450 PRINT"£DOWN>ALTE BELEGUNG HERSTELLEN. 


1030 

REM 

<076> 

-4" 

<142> 

1040 

POKE 53280,0 

<074> 

1460 PRINT“CDOWNJENDE. 


1050 

POKE 53281,0 

< 212 > 

-5 £2D0WNJ" 

<233> 

1060 

SYS 49152 

< 102 > 

l"~'l GET A*:IF A*<"l"OR A*>”5"THEN 1470 

<235> 

1070 

SYS 49152+3 

< 12B> 

1480 ON VAL(A*)GOTO 1490,1500,1520,1610,16 


1080 

DIM B*<255> 

<096> 

60 

< 165> 

1090 

GOSUB 1700:GOSUB 1740 

<026> 

1490 GOTO 1100 

<176> 

1100 

PRINT"£CLR,RVSON,11SPACE >TASTATUR-GEN 

1500 B#(Z)=AL* 

<233> 


ERATOR £11SPACE >";CHR*(B > 

<236> 

1510 GOTO 1100 

< 196> 

1110 

POKE 1,53 

< 121 > 

1520 INPUT"£CLR,2D0WNJNAME ";N* 

<109> 

1120 

PRINT"WELCHE TASTE ? "; 

<036> 

1530 PRINT" £2D0WNXD>ISK ODER <T>APE ? 

<250> 

1130 

Z*="" 

<243> 

1540 GET G*:IF G#< >"D"AND G*<>"T"THEN 1540 

<031 > 

1140 

GET A*:IF A#=""THEN 1140 

< 111 > 

1550 GA=1 

< 146> 

1150 

IF A*=CHR*(13)THEN 1180 

<050> 

1560 IF G*= "D"THEN GA =8 

<152> 

1160 

Z*=Z*+A* 

<119> 

1570 PRINT"£2D0WN>BITTE WARTEN" 

< 126> 

1170 

GOTO 1140 

<23B> 

1580 GOSUB 17B0 

< 125> 

1180 

Z=VAL(Z*> 

< 212 > 

1590 SYS 49152+12,N*.GA 

< 008 > 

1190 

PRINT CHR*<34>;CHR*(20);CHR*(Z> 

<047> 

1600 GOTO 1100 

<032 > 

1200 

B*=B*(Z>:CR=0 

< 167> 

1610 PRINT"£CLR,2D0WN>S0LL WIRKLICH DIE AL 


1210 

L=LEN(B*(Z)) 

<052> 

TE BELEGUNG" 

<221 > 

1220 

IF RIGHT*(B*,1)=CHR*(13)THEN B*=LEFT* 

1620 PRINT"£DOWN>HERGESTELLT WERDEN (J/N) 



<B*,L—1):CR=1 

<040> 

?" 

< 103> 

1230 

PRINT"£DOWN>ALTE BELEGUNG: “:CHR*<34) 

1630 GET A*:IF A*=<>"J"AND A*<>"N"THEN 163 



;B*;CHR*(34>; 

<199> 

0 

< 199> 

1240 

IF CR THEN PRINT"+CHR*(13)": 

< 161 > 

1640 IF A*="J“THEN SYS 49152+9 

<1B4> 

1250 

PRINT:PRINT"£DOWN>NEUE BELEGUNG: = £11 

1650 GOTO 1100 

<082> 


SPACE> — £12LEFT >"5 CHR*(34); CHR*(20)j 

<166> 

1660 PRINT"£CLR,2D0WN,SPACE>AUF WIEDERSEHE 


1260 

POKE 1,55 

<144> 

N ! " 

< 212 > 

1270 

F*=" " 

<047> 

1670 GOSUB 17B0 

<215> 

1280 

GET A*:IF A»=“"THEN 1280 

<063> 

1680 POKE 1,53 

< 1B3> 

1290 

IF A*=CHR*(20)THEN PRINT:PRINT"£4UP>" 

1690 END 

<16B> 


:GOTO 1250 

<24B> 

1700 FOR 1=0 TO 255 

< 01 B> 

1300 

IF A*=CHR*(13)THEN 1370 

<201 > 

1710 #I,STR*(I)+CHR*(13) 

<057> 

1310 

IF A*=CHR*<141)THEN 1360 

<090> 

1720 NEXT I 

<024> 

1320 

IF LEN(F*)=10 THEN 12B0 

<245> 

1730 RETURN 

<008 > 

1330 

PRINT A»; 

<085> 

1740 FOR 1=0 TO 255 

<058> 

J340 

F*=F*+A* 

<090> 

1750 B*(I)=CHR*(I> 

<223> 

1350 

GOTO 1280 

<053> 

1760 NEXT I 

<064> 

1360 

F*=F*+CHR*<13> 

<235> 

1770 RETURN 

<04B> 

1370 

IF F*=""THEN F*=B*(Z> 

<085> 

1780 FOR 1=0 TO 255 

<098> 

1380 

AL*=B*(Z) 

< 143> 

1790 #I,B*(I) 

< 162> 

1390 

B*(Z)=F* 

<160> 

1800 NEXT I 

< 106> 

1400 

PRINT 

<232> 

1810 RETURN 

<090> 

1410 

PRINT"£2D0WN>BITTE WAEHLEN:" 

< 003 > 



1420 

PRINT"£DOWN>NAECHSTE EINGABE. 


6 64'er 


1430 

.... 1 " 

PRINT"£DOWN>LETZTE EINGABE LOESCHEN 

<105> 

Listing 2. »Tastaturgenerator«. Bitte beachten Sie die Ein- 


_ 2 " 

<045> 

gabehinweise auf Seite 6. 
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Tips & Tricks 


Komfortable 

Menü¬ 

steuerung 

Mit diesem Basic-Unterprogramm läßt 
sich durch einfache Parameterüberga¬ 
be eine Menü-Zeile frei definieren, mit 
der Sie auf Tastendruck bis zu 19 wei¬ 
tere Routinen anwähien können. 

Das zirka 800 Byte lange Unterprogramm (ohne REM) er¬ 
spart bei der Erstellung eines menügesteuerten Programms 
die immer wiederkehrenden Abfragen nach gedrückten oder 
nichtgedrückten Tasten. 

Man ruft im laufenden Programm nur das Unterprogramm (Li- 
sting) auf und die gewünschte Menüzeile erscheint zentriert in 
der vorletzten Zeile des Bildschirms. 

Mit den Cursor-Tasten (links/rechts) verschiebt man ein re- 
vers erleuchtetes Feld, das auf das Menü-Wort positioniert 
werden kann. Mit RETURN übernimmt man das Menü-Wort 
und verläßt das Unterprogramm. Um mehrere Menüs zu erstel¬ 
len, sind die Angaben aller Menüs am Anfang des Hauptpro¬ 
gramms den Variablen d$(1), d$(2) und so weiter zuzuordnen. 

Im laufenden Programm wird nun das Unterprogramm fol¬ 
gendermaßen aufgerufen: 

AN=3:az=4:GOSUB 1000 

AN=Anfang des Menü-Wortes (hier drittes Menü-Wort) 

AZ=Anzahl der Menü-Worte (hier vier Worte) 

Es werden also die Strings d$(3) bis d$(4) ausgegeben. Das 
Unterprogramm übergibt den Parameter kk in Abhängigkeit 
des gewählten Menü-Wortes und der Position der Menü-Zeile. 
Hat man also zum Beispiel das dritte Menü-Wort von links aus¬ 
gewählt, so wird kk=3 übergeben. 

Nach dem GOSUB ist eine Weiterbehandlung mit 
ON kk GOSUB 11,22,33,44,... 
am sinnvollsten. 

Man erkennt sofort, welche Vorteile das Programm hat. Än¬ 
derungen können sehr einfach durchgeführt werden und im 
laufenden Programm sind nur zwei Zeilen nötig, um eine Ver¬ 
zweigung zu bewirken. 

Anmerkung: Die Menü-Zeile sollte nicht mehr als 38 Zeichen 
haben, sonst werden die Menü-Worte jeweils um ein Zeichen 
gekürzt dargestellt. Bei mehr als 38 Zeichen plus Anzahl der 
Menü-Worte erscheint eine Fehlermeldung. (M. Schacht/ah) 



2 REM ****** MENUE-DEMO ****** <233> 

4 POKE 53280, 0:POKE 53281,0:PRINT CHRt(147 

> <206> 

5 REM * * * MENUE-WDRTE EINLESEN * * * <229> 

6 AM—12:DIM Dt(AM+l):DIM AA(AM+1): REM AM=M 

AX. ANZAHL DER WORTE <103> 

7 1=1 <212> 

8 READ Dt(I>:Dt(I)=CHRt(32)+Dt(I)+CHRt(32> 

:IF Dt(I><>“ + "THEN 1 = 1 + 1: GOTO 8 <0B3> 

9 DATA ST ART,HELP,GOTO,RENUM, LIST <037> 

10 DATA OLD, FIND, CTRL, CLR, NEW, RUN, ENDE,*- <1&7> 

13 REM **************** <069> 

14 POKE 214,15:PRINT:PRINT TAB(10)”<= CRSR 

=><2SPACE>UND RETURN“ <023> 

15 REM BEISPIEL <220> 

16 AN=1:AZ=5:GOSUB 1000:REM l.MENUE <217> 

17 ON KK GOSUB 27,27,27,27,27 <071> 

1B : <250> 

19 AN=6:AZ=7:GOSUB 1000:REM 2.MENUE <140> 

20 ON KK GOSUB 27,27,27,27,27,27,30 <200> 

22 GOTO 16 <040> 

25 : <001> 

26 REM ANZEIGE <087> 

27 POKE 214,15: PRINT: PRINT TAB < 18) " «5SPAC 

E>" <144> 

28 POKE 214,15:PRINT:PRINT TAB(10)"GEWAEHL 

T: ”;Dt(AN+KK-1);“<“; KK;")”:RETURN <2S3> 

29 : <005> 


30 PRINT 

CHRt(147):END 


<177> 

32 : 






< 116> 

1000 

REM 

tt**«*****»********«-*«-*«'»*****» 

<036> 

1010 

REM 

**** 

MENUE UNTERPROGRAMM 

**** 

< 120> 

1020 

REM 

****************************** 

<056> 

1030 

REM 

**** 


MARIO SCHACHT 

**** 

< 109> 

1040 

REM 

**** 


(030)4968872 

**•* 

<014> 

1050 

REM 

****************************** 

<0B8> 

1060 

REM 

**** 

AUFRUF (BEISPIEL) 

**** 

<023> 

1070 

REM 

• *** 

AN=1:AZ=4:GOSUB1000 

**** 

<011> 

1080 

REM 

**** 

ON 

KK GOSUB11,22,... 

**** 

<065> 

1090 

REM 

*»**- 



**** 

<067> 

1100 

REM 

**** 

AN: 

ANFANG MIT AN-TEN**** 

<166> 

1110 

REM 

**** 


STRING 

**** 

<024 > 

1120 

REM 

**** 

AZ: 

ANZAHL DER MENUE- 

-**** 

<003> 

1130 

< « ACT 

REM 

PPM 

***• 

k'k'. 

PUNKTE 

1 RTP 0x7 UTPn 

**** 

< 1 B8> 

±*J0 

REM 

**** 


UEBERGEBEN 

**** 

<043> 

1160 

REM 

****************************** 

<198> 

1170 

REM 

**** 

VERWENDETE VARIABLEN 

**** 

<215> 

1180 

REM 

**** 

Dt(AM);AA(AM>;At 

**** 

<217> 

1190 

REM 

**** 

AM; 

AZ;AN;AL; DI;AY;KK 

**** 

<145> 

1200 

REM 

: *** 



**** 

<243> 

1210 

REM 





<248> 

1220 

AL=0 




<100> 


1230 FOR I=AN TOCAN+AZ—1>:AL=AL+LEN<Dt(I)) 

:NEXT:REM AL=GESAMTLAENGE <065> 

1240 IF AL>38+AZ THEN POKE 214,22:PRINT:PR 

INT" MENUE-WORTE KUERZEN !“:RETURN <177> 

1250 IF AL<39 THEN 1290 <097> 

1260 REM WORTE KUERZEN <093> 

1270 DI=AL—39:FOR I=AN TO(AN+DI):Dt(I>=LEF 

Tt <Dt(I),LEN(Dt(I)) — 1>:NEXT:AL=38 <069> 

1280 REM MENUE DARSTELLEN <118> 

1290 POKE 214,22:PRINT:PRINT TAB<(40-AL)/2 

> <035> 

1300 FOR I=AN TO(AN+AZ—1) <232> 

1310 PRINT CHRt <18)CHRt(30);Dt <I); : NEXT <192> 

1330 REM ANZEIGE <121> 

1340 AA(AN)=(40-AL)/2:REM ERSTE STELLE <023> 

1350 FOR I=AN TO(AN+AZ-2) <155> 

1360 AA(I+1)=AA(I)+LEN(Dt(I)>:NEXT <074> 

13B0 REM STARTPOSITION <094> 

1390 KK=INT(AZ/2):FL=0:FR=158:GOSUB .1550 <075> 

1400 REM ABFRAGE <187> 

1410 GET At:IF At=""THEN 1410 <190> 

1420 IF At< >CHRt(29)AND At<>CHRt(157)AND A 

t< >CHRt(13)THEN 1410 <149> 

1430 IF At=CHRt(29)THEN KK=KK+1:FL=-1:FR=3 

0:GOSUB 1550:IF KK=AZ THEN KK=0 <023> 

1440 IF At=CHRt(157)THEN KK=KK-1:FL=1:FR=3 

0:GOSUB 1550:IF KK<0 THEN KK=AZ-1 <016> 

1450 FL=0:FR=15B:GOSUB 1550 <089> 

1460 IF At<>CHRt(13)THEN 1410 <017> 

1470 POKE 214,22:PRINT:PRINT”C39SPACEI":RE 

M MENUE LOESCHEN <145> 

1500 KK-KK+1:RETURN:REM RUECKSPRUNG MIT PA 

RAMETER KK <117> 

1540 REM ANZEIGE GELB <160> 

1550 POKE 214,22:PRINT:PRINT TAB(AA(KK+AN+ 

FL))CHRt(18)CHRt(FR);Dt(KK+AN+FL):RET 
URN <022> 

Listing »Komfortable Menüsteuerung«. Bitte die 
Eingabehinweise auf Seite 6 beachten. 
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Tips & Tricks 


Anhalter — 

Programmstop 

auf 

Tastendruck 

Mit dieser kleinen Maschinensprach- 
Routine können Sie jedes Programm 
anhalten. Der Computer stoppt so lan¬ 
ge, bis Sie eine Taste drücken 

Dieses kleine Maschinenprogramm kann Ihnen in vielerlei 
Hinsicht nützlich sein. Man kann sich beispielsweise folgende 
Anwendungsgebiete vorstellen: In einem selbstprogrammier¬ 
ten Spiel wird oft eine Pause-Taste benötigt, ähnlich, wie es sie 
auch in manchen kommerziellen Spielen gibt. Auch das Aufli¬ 
sten von Programmen kann jederzeit angehalten werden und 
sogar der Datenfluß zur Floppy ist gegen eine Unterbrechung 
nicht gefeit. Mit dem Programm »Anhalter« steht es Ihnen voll¬ 
kommen frei, zu entscheiden, an welchen Stellen ein Pro¬ 
gramm angehalten werden soll. 

Nach dem Starten des Programms (siehe Listing 1) werden 
Sie zunächst gefragt, wohin das Programm verschoben wer¬ 
den soll (bitte Dezimalzahlen eingeben). Da das Programm voll¬ 
kommen frei verschiebbar ist, brauchen Sie keine weiteren An¬ 
gaben zu machen. Danach brauchen Sie nur noch die Funk¬ 
tionstaste Fl zu drücken um Ihr Programm zu stoppen. Soll das 
Programm weiter laufen, so genügt es, eine beliebige Taste zu 
betätigen. 

Falls Sie nicht die Fl-Taste, sondern eine andere mit der An- 
halte-Funktion belegen möchten, so ist dies möglich. Dazu 
brauchen Sie nur in die Speicherstelle (Startadresse + 16) 


0 REM ***************************** <012> 

1 REM ** +++ ANHALTER +++ ** <230> 

2 REM **-** <107> 

3 REM ** WRITTEN BY GEORB KRAMER ** <149> 

4 REM ** AUF DEM MOORE 15 ** <233> 

5 REM ** 4783 ANROECHTE ** <140> 

6 REM ** TEL.5 02947/3511 ** <121> 

7 REM ** (C) 07.06.1985 ** <035> 

8 REM ***************************** <020> 

9 ! <241> 

10 PRINT"<CLR,DOWN,3SPACE>++ ANHALTER ++"s 

PRINT <126> 

15 INPUT"<SPACE,RVSON>STARTADRESSE :<RVOFF 

,SPACE >49152 C7LEFT >";S s <195> 

20 IF S<0 OR S>65535 THEN 10 <022> 

30 FOR 1=0 TO 33:READ A:X=X+A <226> 

40 POKE S+I,A:NEXT <221> 

50 IF X04231 THEN PR INT "DATA—FEHLER !":EN 

D <146> 

60 POKE S+7,(S+131/256 <139> 

70 POKE S+2,(S+13)-PEEK(S+7)*256 <098> 

80 SYS(S) <101> 

90 PRINT:PRINT" PROGRAMM ANHALTEN => Fl" <039> 
95 END <097> 

100 REM *** MASCHINENPROGRAMM *** <154> 

101 DATA 120,169,13,141,20,3,169,192,141,2 

1,3,88,96,165,203,201,4,240,3,76 <0B1> 

102 DATA 49,234,32,135,234,165,203,201,64, 

240,247,76,49,234 <040> 


Listing 1. »Anhalter«. 

Bitte beachten Sie die Eingabehinweise auf Seite 6 


,cooo 

,C001 

7B 

A9 

OD 


SEI 

LDA 

#$0D 

Interrupt abschalten 
llnterrupt auf COOD 

,C006 

A9 

CO 


LDA 

#$C0 

setzen 

,C008 

8D 

15 

03 

STA 

$0315 

J 

,C00B 

,C00C 

,C00D 

58 

60 

A5 

CB 


CU 

RTS 

LDA 

$CB 

;lnterrupt zulassen 
.Rückkehr zum Basic 
;hole Wert der letzten 

,C00F 

C9 

04 


CMP 

#$04 

gedrückten Taste 
;vergleiche mit Wert 

,C011 

FO 

03 


BEQ 

$C016 

für Fl-Taste 
;verzweige:ja 

,C013 

4C 

31 

EA 

JMP 

$EA31 

=eig. Routine, 
nein=norm. IRQ 
;verlasse 

,C016 

20 

87 

EA 

JSR 

$EA87 

Routine zum normalen 
IRQ 

ispringe zur normalen 

,C019 

A5 

CB 


LDA 

$CB 

Tastaturabfrage 
;hole Wert der letzten 

,C01B 

C9 

40 


CMP 

#$40 

gedrückten Taste 
vergleiche mit $40 

,C01D 

FO 

F7 


BEQ 

$C016 

(#64) = keine Taste 
;wenn keine Taste 

,C01F 

4C 

31 

EA 

JMP 

$EA31 

dann zur Tastaturabf. 
;wenn Taste gedrückt, 


dann norm. IRQ 

Listing 2. Schnell eingegeben und leicht zu verstehen — 
der Source-Code von »Anhalter« 


den Wert der neuen Taste hineinschreiben. Diesen Wert erhal¬ 
ten Sie, indem Sie folgende Zeile im Direktmodus eingeben, 
die gewünschte Taste drücken und sich die angezeigte Zahl 
merken. 

FOR 1=1 ,0 10000 : PRINT PEEK(203): NEXT 
Jetzt können Sie die Abfrage ändern: 

POKE Startadresse + 16,X (X=neuer Wert) 

Usting 2 erläutert die genaue Funktionsweise des Program¬ 
mes. 

(Georg Kramer/aw) 

Variable 

Funktionen 

Normalerweise werden Formeln in 
Programmen fest definiert. Mit dieser 
kleinen Basic-Erweiterung können Sie 
Funktionen auch während des Pro¬ 
grammablaufs eingeben und ändern. 

Um in einem Basic-Programm Formeln zu definieren hatte 
man bislang nur eine Möglichkeit: die Formel mit dem DEF FN- 
Befehl in einer Basic-Zeile zu definieren. Vom laufenden Pro¬ 
gramm aus war das nicht möglich. Dabei wird der Funktions¬ 
wert zum Beispiel mit A=FNA(X) oder mit PRINT FNB(Y) auf¬ 
gerufen. 

Es geht aber auch anders, nämlich mit diesem kurzen Ma¬ 
schinenprogramm (Listing 1), das mit dem MSE einzugeben 
ist. Den Quell-Code dazu finden Sie in Listing 2. Das Programm 
wird mit LOAD "VARFUNKT",8,1 und nachfolgendem NEW 
geladen, sofern es nicht von einem anderen Programm nach¬ 
geladen wird. Das Einbinden in die Interpreter-Routine 
(=Initialisierung) wird mitSYS(49351) vorgenommen. 
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ASSEMBLERLISTING 

ASSEMBLER PROFI-ASS) 










Listing 2. 

NUMERISCHER 

WERT EINES STRINGS 


Assembler-Quell-Listing 

2 

100- 

ceie 





.OFT 

P2.00 

zu »Variable Funktionen«. 

105 

C010 






1C018 


110 

COlO 




CHRGET 


*73 


US- 

C01Ö 




CHRGÜT 

*> 

*79 


12Ü 

C010 




FRMEVL 

B 

*HD9E 


130 

C010 




Hl 

B 

139 


140- 

COlO 




H2 

m 

140 


150' 

COlO 




H3 

a 

*C0O2 


160 

COlO 




H4 

m 

SC0&3 


170 

CO lö 




H5 

u 

*CO04 


180: 

COlO 




H6 

■ 

*C005 







i NUMERISCHER WERT EINES STRINGS 

212 

C010 

A5 

9D 


WERT 

LBA 

157 


214 

CO 12 

F0 

05 



BEO 

RUN 

. iKEIN DIREKT-MODUS 

216 

C014 

H2 

15 



LLX 

•21 

;ILLEGAL DIRECT ERROR 

218 

C816 

4C 

J,' 

A4 


JMP 

*H437 


220 

CO 19 

«5 

,'H 


RUN 

LDA 

J7A 

,PROGRAMMZEIGER SPEICHERN 

230 

C01B 

85 

8Ü 



STA 

Hl 


240 

COID 

A5 

7B 



LDA 

*7B 


250 

C01F 

85 

BL 



STA 

H2 


260 

C021 

Hü 

00 



LDV 

•0 


270- 

C023 

bi 

7H 


X 

LDA 

C*7A)/V 

,1. ZEICHEN NACH DEM BEFEHL EINLADEN 

280 

C025 

FO 

0D 



BEO 

SYNERR 

.KEIN ZEICHEN DA 

230 

C027 

Ü9 

B2 



CMP 

H*B2 


300 

C029 

FO 

Ot 



BEQ 

PROOR 

1 ZEICHEN EIN 

310 

C02B 

Lb 

7H 



INC 

*7A 

.NEIN.DANN HAECHSTES ZEICHEN HOLEN 

320 

C02D 

HO 

F4 



BNE 

X 


330 

CQ2F 

E6 

7B 



INC 

*7B 


340 

C031 

4t 

23 

ce 


JMP 

X 

.ZURUECK ZUM CHECK' 

360 

C034 

A2 

OB 


SYNEPR 

LDX 

•*0B 

."SYNTHX-ERROR- 

370: 

CÖ36 

4C 

37 

A4 


JMP 

*R437 


330 

C039 

20 

73 

00 

PRQGR 

JSR 

CHRGET 

•HAECHSTES ZEICHEN IN AKKU 

400 

C03C 

20 

3t 

Hb 


JSR 

FRMEVL 

,AUSWERTEN DES TERrtEo HINTER 

410 

C03F 

FiS 

7A 



LDA 

*7A 

.PROGRAMM-U.ZEILENZE2OER SPEICHERN 

420 

C041 

3D 

02 

C0 


STA 

H3 


430 

CÖ44 

H5 

7B 



LDA 

*7B 


440 

C046 

öi) 

03 

Cfl 


STR 

H4 


450 

C049 

Hb 

39 



LDA 

139 


460 

C04B 

8B 

04 

ce 


STH 

H5 


470 

C04E 

Hb 

3H 



LDA 

*3A 


430 

CO50 

8b 

05 

ce 


STA 

H6 


490 

C053 

Hü 

Olt 



LDY 

•0 


500 

C055 

Bl 

64 



LDH 

(164).Y 

,*647*65 SIND ZEIGER AUF DEN STRINGD 

E3CRIPT0P 








510 

C057 

es 

61 



STA 

*61 

,DESCRIPTOR NACH *61-*63 HOLEN 

512 

C059 

I'Ö 

05 



BNE 

RI 


514: 

C05B 

A2 

0E 



LDX 

«14 


516 

C05D 

4t 

37 

A4 


JMP 

JA437 

-FEHLER,WEIL STRING LEER 

520 

C060 

CU 



RI 

INY 



530: 

C061 

Bl 

64 



LDA 

<»64,>.V 


540 

CÖ63 

8b 

62 



STH 

*62 


530 

C065 

CU 




INY 



560 

C066 

Bl 

64 



LDA 

<*64>,V 


570 

CÖ68 

85 

63 



STA 

*63 


588 

CÖ6A 

HÜ 

00 



LDY 

«0 


550: 

CÖ6C 

bl 

8b 


Z 

LDH 

vHl>.Y 

.l.TEIL DES TERMS IN EINGABEPUFFER 

600: 

C06E 

33 

08 

02 


STH 

*0288.V 


610: 

C071 

C8 




INY 



620: 

C072 

C9 

B? 



CMP 

#*B2 

.<BIS ZU '=') 

630 

C874 

BO 

Fb 



SNE 

z 

G46R or 

635: 

CÖ76 

H9 

3U 



LDA 

#*3D 


637 

C078 

99 

FF 

Öl 


STH 

*Ö1FF,Y 

IN STRINGCODE WANDELN 

640 

C07B 

A2 

80 



LDX 

• 0 


650: 

C07I 

Hl 

62 


LY 

LDA 

<S62).X 

,2. TEIL DES TERMS UEBERTRAGEN 

660 

CÖ7F 

99 

00 

02 


STH 

*0208,V 


670 

C082 

CU 




INY 



680 

C083 

tb 

62 



INC 

*62 


630 

C085 

BO 

02 



BNE 

LZ 


700 

C087 

Et 

63 



INC 

*63 


710 

C889 

Cb 

61 


LZ 

DEC 

*61 


720 

C08B 

D0 

FO 



BNE 

LY 


730 

CÖSD 

HH 




TXA 



74Ö 

Cö&E 

33 

00 

02 


STA 

*0200.Y 

.LETZTES ZEICHEN = 0 

750 

C031 

A3 

FF 



LDA 

•*FF 

»LIREKTMODUS SIMULIEREN 

760 

C093 

85 

7A 



STA 

*7A 


770 

C095 

H3 

01 



LDA. 

B*öl 


780 ■ 

C097 

85 

78 



STA 

*7B 


790 

C099 

H9 

88 



LDA 

•*80 


800. 

C09B 

20 

18 

FE 


JSR 

*FE1& 


810 

C09E 

20 

73 

00 


JSR 

CHRGET 

,1.ZEICHEN AUS EINGABEPUFFER IN AKKU 

820 

C0A1 

H2 

FF 



LLX 

«*FF 


330 

C0A3 

36 

3ft 



STX 

*3A 


840 

C0A5 

40 

73 

A5 


JSR 

*H579 

• TERM IN INTERPPETERCOBE WANDELN 

85ö 

C0A8 

20 

73 

Oö 


JSR 

CHRGET 


860 

C0AD 

20 

EL 

H7 


JSR 

SA7ED 

•BEFEHL AUSFUEHREH 

870. 

C0AE 

HÜ 

02 

Lü 


LDA 

H3 

•ZEIGER ZURUECKHÜLEN 

880 

C0B1 

85 

7H 



STA 

*7H 


390. 

C0B3 

Hü 

83 

C0 


LDH 

H4 


300 

C0B6 

85 

7B 



STA 

*7B 


910 

C0B8 

HÜ 

04 

C0 


LDH 

H5 


920 

COBB 

85 

39 



STA 

*39 


930 

C0BB 

AD 

05 

C0 


LDA 

Hb 


940 

C0C0 

8b 

3H 



STA 

*3A 


350 

C0C2 

H3 

00 



LDA 

•Ö 

.RUN-MODUS WIEDERHERSTELLEN 

960 

C0C4 

85 

9D 



STA 

157 


970 

C0C6 

60 




RTS 


.ZUR INTERPPETERSCHLEIFE 

1000 

C0C7 

H3 

D2 



LDH 

•<AUS 

-VEKTOR NEU BESTIMMEN 

1010- 

C0C9 

8D 

08 

03 


STA 

*03O8 


1020 

C0CC 

H3 

CÜ 



LDH 

•bAUS 


1030 

COCE 

8Ü 

03 

03 


STA 

*0309 


1040 

C0D1 

60 




RTS 



1050 

C0L2 

20 

73 

00 

AUS 

JSR 

CHROET 

.BEFEHL "T ?" 

1060 

C0D5 

L3 

HE 



CMP 

(l*M£ 


1070 

C0D7 

FO 

OH 



BEO 

6 


1072 

C0D9 

C9 

3B 



CMP 

• S8B 


1074 

COIB 

FO 

OL 



BEO 

T 

; IF-6TRUKTUR 

1080 

C0DD 

20 

79 

00 

ST 

JSR 

CHPGOT 


1090 

COEO 

4t 

E7 

H7 


JMP 

SA7E7 

.NEIN 

1100 

C0E3 

20 

10 

C0 

S 

JSR 

WERT 

.NEUEN BEFEHL AUSFUEHREH 

1110 

C0E6 

4L 

Mfc 

H7 


JMP 

*A7AE 

•ZUR INTERPRETERSCHLEIFE 

1120 

C0E9 

20 

F2 

LÜ 

T 

JSR 

IF 

.IF-BEFEHL AOSFUEHREN 

1130 

COEC 

4L 

Ht 

H7 


JMP 

*R7AE 

.ZUR INIERPRETERSCHLEIFE 

1140 

COEF 

4C 

FB 

A8 

R 

JMP 

1H8FB 


1200 

C0F2 

20 

73 

00 

IF 

JSR 

CHRGET 


1200. 

C0F5 

20 

3fc 

Hü 


JSR 

*AD9E 


1210 

C0F8 

20 

79 

00 


JSR 

CHRGOT 


1220 

C0FB 

C3 

89 



CMP 

**89 


1230’ 

COFB 

Fü 

Ob 



BEO 

u 


1240: 

COFF 

A3 

B7 



LDA 

«*A7 


1250 

C101 

20 

FF 

AE 


JSR 

»REFF 


1260 

CI 04 

H5 

61 


U 

LDH 

*61 


1270 

ClOb 

HO 

05 



BNE 

V 


1280 

CI 08 

20 

09 

A9 


JSR 

1A909 


1290 

C10B 

F0 

E2 



BEO 

R 


1300 

C10D 

20 

79 

00 

V 

JSR 

CHRGOT 


1310 

C110 

BO 

03 



BCS 

W 


1320 

CI 12 

4L 

HÜ 

A8 


JMP 

JR8RÖ 


1330. 

CI 15 

C3 

Ht 


w 

CMP 

•*HE 


1340 

CI 17 

FO 

06 



BEO 

UE 


1350: 

CI 19 

C9 

8b 



CMP 

•*8E 


1360: 

C11B 

FO 

05 



BEO 

IF2 


1370 

CI ID 

DÖ 

BE 



BNE 

ST 


1380 

TUR 

1390 

CI 1F 

4C 

10 

CG 

UE 

JMP 

WERT 

.JMP.WEIL NOCH INNERHALB DER IF-STRUK 

C122 

4C 

F2 

ce 

IF2 

JMP 

IF 



Programm i var-funkt cOlO cl25 


cOlO 

8 

aS 

9d 

•fO 

05 

a2 

15 

4c 

37 

d3 

cOlB 

8 

a4 

•5 

7a 

BS 

Sb 

aS 

7b 

85 

bd 

c020 

8 

Bc 

aO 

00 

bl 

7a 

fO 

Od 

c9 

2a 

c 028 

: 

b2 

^0 

Ob 

b6 

7a 

dO 

*4 

b6 

82 

cO30 

8 

7b 

4c 

23 

cO 

a2 

Ob 

4c 

37 

d4 

c03B 

8 

a4 

20 

73 

00 

20 

9b 

ad 

a5 

c 2 

c040 

8 

7a 

8d 

02 

cO 

a5 

7b 

Bll 

03 

Bc 

c04B 

8 

cO 

a5 

39 

Bd 

04 

cO 

a5 

3a 

2 c 

c050 

8 

Bd 

05 

cO 

aO 

00 

bl 

64 

B5 

CO 

c058 

8 

61 

dO 

03 

a 2 

Ob 

4c 

37 

a4 

20 

c 060 

8 

cB 

bl 

64 

B5 

62 

c8 

bl 

64 

c7 

c068 

3 

85 

63 

aO 

00 

bl 

Bb 

99 

00 

aS 

c070 

8 

02 

cB 

c9 

b2 

dO 

■f6 

a9 

3d 

Bb 

c078 

: 

99 

ff 

Ol 

a 2 

00 

al 

62 

99 

6f 

cOBO 

8 

00 

02 

cB 

b6 

62 

dO 

02 

b6 

13 

cOBB 

3 

63 

c6 

61 
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20 
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a5 
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20 
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a7 
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02 
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cO 

B5 

7a 

ad 

03 

cO 

85 

7b 

ca 
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8 

ad 

04 

cO 

B5 

39 

ad 

05 

cO 

df 

cOcO 

8 

85 

3a 

a9 

00 

B5 

9d 
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a9 

b7 
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d2 

Bd 

OB 

03 

a9 

cO 

Bd 

09 

ac 
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8 

03 

60 

20 

73 

00 

c9 

aa 

fO 

65 
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8 

Oa 

c9 

Bb 

fO 

Oc 
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79 

OO 

6f 
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4c 

b7 

a7 

20 

10 

cO 

4c 

a& 

a3 
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8 

a7 

20 

f2 

cO 

4c 

aB 

a7 

4c 

aS 
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8 

■fb 

aB 

20 

73 

00 

20 

9b 

ad 

Bd 
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8 

20 

79 

00 

c9 

B9 

fO 

05 

a9 

96 

clOO 

8 

a7 

20 

ff 

ae 

a5 

61 

dO 

05 

40 

clOB 

: 

20 

09 

a9 

■fO 

b2 

20 

79 

00 

4a 

CllO 

s 

bO 

03 

4c 

aO 

aB 

c9 

aa 

fO 

dB 

cl 18 

: 

06 

c9 

Bb 

fO 

05 

dO 

bc 

4c 

6b 

cl20 

s 

10 

cO 

4c 

f2 

cO 

ff 

OO 

ff 

Ob 

Listing 1. »Variable Funktionen«. 


Beachten Sie die Eingabehinweise auf Seite 8. 


Aufruf aus dem Programm 

I iw Übergabe der Variablen erfolgt in der denkbar einfach¬ 
sten Art: die Formel steht in einer String-Variablen wie zum Bei¬ 
spiel X$. DaX$ ein normaler String ist, kann man die Formel na¬ 
türlich auch über den INPUT-Befehl oder eine GET-Schleife 
eingeben, wobei man bei INPUT nicht über 80 Zeichen kommt 
undGET eine programmbedingte Längenbegrenzung von 127 
Zeichen hat. Die Syntax ist dabei die des normalen Basic mit 
sämtlichen Basic-Funktionen. Das heißt, daß man zum Beispiel 
die Formel »5 SIN X« als »5*SIN(X)« eingibt. Dabei bedeutet X 
wiederum eine Variable. Natürlich kann die Formel beliebig vie¬ 
le Variablen, beziehungsweise beliebig verschachtelte Basic- 
Funktionen enthalten. 

Die Syntax des neuen Befehls ist 

t Y=B$ 

Hier wird der Variablen Y der Wert des berechneten Strings X$ 
zugewiesen. 

Hierzu noch ein Beispielprogramm, das das Programm »Var¬ 
funkt« auf Diskette erwartet: 

10 IFA=0THEN A=1 : PRINT "(hörne!* : LOAD "VARFUNKT ",8,1 

20 SYS 49351 

30 INPUT " 0own] FUNKTION UEBER X " ;X$ 

40 INPUT" WERT FUERX";X 

50 IY=X$ 

60 PRINT " FUNKTIONSWERT = ";Y 

70 GOTO 30 

In Zeile 10 wird beim Start die Maschinenroutine »Varfunkt« 
nachgeladen. Die IFAbfrage ist nötig, da der Interpreter nach 
einem LOAD-Befehl das Programm erneut startet. 

Der SYS-Aufruf in 20 bindet das nachgeladene Programm in 
das Betriebssystem ein. 

In den Zeilen 30 und 40 werden Funktion und Wert für die 
Funktion eingegeben. 

Zeile 50 schließlich übergibt den berechneten Wert aus X$ 
an die Variable Y, die in 60 ausgegeben wird. 

Zeile 70 schließt das Beispielprogramm ab, indem wieder in 
Zeile 30 zur Funktionseingabe gesprungen wird. 

(Jens Weber/og) 
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Cross-Ref 64 
— Basic-Pro- 
gramme unter 
der Lupe 

Wenn man zu einem Basic-Programm 
eine Liste aller Sprungadressen, 
Schleifen und Variablen hat, ist das ei¬ 
ne sehr gute Hilfe. Nicht nur während 
des Programmierens, sondern auch 
zur nachträglichen Dokumentation. Ei¬ 
ne solche Liste erstellt dieses Maschi- 
nen-Programm. 

Cross-Ref 64 durchsucht in zwei Durchgängen (Passes) ein 
Basic-Programm nach Sprungbefehlen und Variablen. Sämtli¬ 
che Sprungziele und Variablennamen werden dann auf einem 
Drucker in Form einer Tabelle ausgegeben. Eine solche Tabelle 
nennt man Cross-Reference-List. 

Das Basic-Programm kann dazu übrigens irgendwo im 
Basic-Speicher liegen. Es muß nicht bei Adresse $0801 be¬ 
ginnen. Das ist wichtig, denn häufig wird der untere Basic- 
Speicherteil für Sprites reserviert. 

1. Durchgang 

Im ersten Durchlauf (Pass) werden Sprunganweisungen und 
FOR-NEXT-Schleifen gesucht und alle Zeilennummern der 
Zeilen ausgegeben, die eine Sprunganweisung enthalten oder 
angesprungen werden. Dabei werden alle Sprünge berück¬ 
sichtigt, die das C 64-Basic 2.0 bietet. FOR-NEXT-Schleifen 
werden durch die Laufvariable gekennzeichnet. Eventuell vor¬ 
handene, noch nicht zu Ende geschriebene FOR-NEXT- 
Schleifen werden mit einem »*« markiert. 

2. Durchgang 

Hier werden alle Variablen eines Basic-Programms gesucht 
und ausgegeben. 

Die Ausgabe der Cross-Reference-Liste kann in beiden 
Durchgängen entweder auf Bildschirm oder Drucker erfolgen. 
Bei Bildschirmausgabe allerdings auch im Druckerformat mit 
80 Zeichen/Zeile. Das bedeutet, daß zwei Bildschirmzeilen im¬ 
mer eine Druckerzeile darstellen. Doch wie sinnvoll ist über¬ 
haupt eine Dokumentation auf dem Bildschirm? Das Programm 
ist auf einen Epson-Drucker mit Görlitz-Interface angepaßt. Es 
kann aber leicht so verändert werden, daß es auch für andere 


Drucker geeignet ist. Es müssen nur vier Speicherzellen mit 
POKE-Befehlen verändert werden. 

Einstellung der Geräteadresse: 

POKE 50517, GA : POKE 50519, GA 
Einstellung der Sekundäradresse: 

POKE 50521, SA+96 : POKE 50529, SA+96 
Mit einem Monitor wie dem SMON oder dem Einzeiler »Ma¬ 
schinenprogramme speichern« (Ausgabe 11/84) können Sie 
die auf Ihren Druckerangepaßte Programmversion speichern: 

SYS57812a$,x:P0KE193,ls:P0KE194,hs:P0KE174,le:POKE 
175,he:SYS62957 

Dadurch ersparen Sie sich die lästigen POKE-Befehle nach 
jedem Laden von Cross-Ref 64. Das Programm belegt den 
Speicherbereich von $0000 (49152) bis $CAB6 (51894). 
Um Ihnen eventuelle Berechnungen zu ersparen: Das High¬ 
byte (hs) von 49152 ist 192 das Lowbyte (ls) 0. Das Highbyte 
von 51894 (he) ist 202, das Lowbyte (le) 182. 


Übersichtliches Ausgabeformat 


Wie schon erwähnt, werden alle Zeilen, in denen ein Sprung 
erfolgt, ausgegeben. Die gezeigte Tabelle (Tabelle 1) bezieht 
sich auf das Beispielprogramm (Listing 1). Man kann sich auch 
eine Liste aller Sprungziele drucken lassen (Tabelle 2). Die 
Ausgabe erfolgt mit 80 Zeichen pro Zeile, dem üblichen 
Druckerformat, 

Sollten offene FOR-NEXT-Schleifen (ohne NEXT) vorhan¬ 
den sein, wird nach einem »‘«die Anzahl der fehlenden NEXT- 
Befehle angezeigt. Sollte die Anzahl 255 betragen, heißt das, 
daß ein Nfj'KT zuviel gefunden wurde. 

Sollten in einer Basic-Zeiie mehrere Sprünge auftreten, wird 
die mehrmalige Ausgabe der Zeilennummer unterdrückt. 

Bei Sprungbefehlen der Form ON X GOSUB wird das Argu¬ 
ment nach ON durch»—«ersetzt, da auch ganze Basic-Funk- 
tionen als Argument erlaubt sind. Um diese Funktionen zu be¬ 
rücksichtigen, wäre ein zu großer Programmieraufwand nötig. 
Treten nach einem THEN mehrere Sprünge auf, wird jedem 
Sprungziel ein THEN vorangestellt. Eine solche Befehlsfolge 
ist beispielsweise 

IF X=1 THEN GOSUB 100:GOSUB 200.GOSUB 300. 

Bei FOR-NEXT-Schleifen wird der ganze Variablenname ange¬ 
geben. 

Die Variablennamen werden in einer eigenen Tabelle ausge¬ 
geben (Tabelle 3). Hier werden die Namen allerdings auf zwei 
Zeichen gekürzt. In der Tabelle steht nach dem Namen der Va¬ 
riable der Variablentyp (Real, Integer oder String). Zwei Klam¬ 
mern »()« zeigen an, daß es sich um eine indizierte Variable 
handelt. Da eine Variable in einem Programmbereich sehr häu¬ 
fig benutzt werden kann, werden bei Mehrfachnennung einer 
Variablen nur noch die Zeilennummern angegeben; so lange, 
bis eine andere Variable aufgerufen wird. Wird einer Variablen 
ein anderer Wert zugeordnet (A=A+1), wird die Zeilennum¬ 
mer mit einem Stern »*« gekennzeichnet. Bei der sortierten 
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100 

GOTO 

200 

40 
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100 
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100,90,70,80 




Tabelle 1. Liste der Zeilen, die Sprungbefehle enthalten 
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Variablenausgabe (Tabelle 4), werden nach dem Variablenna¬ 
men alle Zeilen aufgeschlüsselt, in denen die Variable vor¬ 
kommt. Das Sortieren geschieht nach den folgenden Krite¬ 
rien: 

1. Typ: Real, Integer, Strings, Felder 

2. Name alphabetisch 

3. Zeilennummern in aufsteigender Reihenfolge. 

Die Ausgabe kann jederzeit durch Tastendruck gestoppt 
werden. Eine begonnene Druckzeile wird zu Ende gedruckt. 
Bei einem weiteren Tastendruck fährt das Programm fort. Mit 
RUN/STOP kann die Ausgabe abgebrochen werden. 

Tips zu Eingabe und Benutzung 
Das Maschinen-Programm (Listing 2) sollten Sie mit dem 
MSE eingeben. Es wird durch »SYS 49152, Parameterliste, 
Bereich« gestartet. Die »Parameterliste« muß aus genau fünf 
Zeichen bestehen (Leerzeichen nicht mitgerechnet). Folgen¬ 
de Zeichen sind erlaubt: 

1. Stelle: P — Ausgabe auf Drucker 

2. Stelle: S — Ausgabe der Zeilen mit Sprungbefehlen (Tabelle 

D 

3. Stelle: J — Ausgabe der angesprungenen Zeilen (nur zu¬ 
sammen mit »S« an zweiter Stelle möglich (Tabelle 2) 

4. Stelle: V — Ausgabe der benutzten Variablen in der Reihen¬ 


folge des Auftretens (Tabelle 3) 

5. Stelle: J — Ausgabe der benutzten Variablen in sortierter 
Reihenfolge (Tabelle 4) 

Werden andere Zeichen an der entsprechenden Stelle an¬ 
gegeben, dann wird der Programmpunkt nicht ausgeführt. 

Die Bereichsangabe ist optional und hat die gleiche Syntax 
wie beim LIST-Befehl. Falls ein Zeilenbereich angegeben wird, 
analysiert das Programm auch nur den entsprechenden Ab¬ 
schnitt. Ein Beispiel: 

Es sollen alle Sprungbefehle und alle Variablen im Zeilenbe¬ 
reich 100-200 gesucht werden. Die Ausgabe soll auf dem 
Drucker erfolgen. Der entsprechende SYS-Aufruf lautet dann: 
SYS 49152, PS..J,100-200 

Anstelle der Punkte kann dabei jedes beliebige andere Zei¬ 
chen mit Ausnahme des Kommas angegeben werden. 

Zum Sortieren der Variablen und für die Ausgabe der ange¬ 
sprungenen Zeilen wird das »Bubblesort«-Verfahren verwen¬ 
det, da es besonders einfach in Assembler (Listing 3, Quellco¬ 
de) programmiert werden kann. Die Variablen- und Sprungta¬ 
belle wird im Bereich $A000 bis $BFFF, also »unter« dem 
Basic-ROM, abgelegt. Falls also eine Basic-Erweiterung ver¬ 
wendet wird, darf dieser Speicherbereich dadurch nicht ver¬ 
ändert werden. (Peter Rüschhoff-Nadermann/hm) 
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80 
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80 

40 

ON - 

GOTO 


80 

50 

RUN 
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GOTO 


60 
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GSUB 

100 

om.IT e™ 
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GSUB 

100 

100 

GSUB 
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THEN 
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60 

100 

THEN 

ON - 
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100 

200 

GOTO 
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Tabelle 2. Liste der angesprungenen Zeilen 




VARIABLEN 




ZS 2 2 ZS SZ ZS 2 2 ZS 


VARIABLE 

ZEILEN 

VARIABLE 

ZEILEN 

*========** 

- — — SS — —- — 2 4t 4t — ZS ZS ZS ZS ZS ZS ZS 4t "X* ““ SS SZ ZS ZS SZ CS 4t «S ““ SS ZS —. SZ ZS zs 4t 4t ~S ZS ZS ZC ZS ZS ZS SS 4t 4t -S SS CS ZS CS ZE ZS 4t 4t SB ZS 2 ZS 2222 4t 

A 

60 

80 100 100 


B 

120* 

120 120* 120 


D 

140 

G 

140 

E 

140 

K 

140 

E 

160* 

G 

160 

D 

160 

K 

160 

D 

160 

K 

160 


Tabelle 3. Alle im Beispiel-Programm verwendeten Variablen 


VARIABLE 

ZEILEN 


VARIABLEN 

222222222 

VARIABLE 

ZEILEN 


A 

60 

80 

100 

100 



B 

120 

120 

120* 

120* 



D 

140 

160 

160 

E 

140 

160* 

G 

140 

160 


K 

140 

160 160 


Tabelle 4. Alle Variablen des Beispiel-Programms in sortierter Reihenfolge. 
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Programm 

: cross-ref 
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ca 

85 

fb 

ad 

aa 

ca 

72 

c9f 0 

49 

45 

4c 

20 

20 

2a 

20 

20 

07 

cB28 

85 

fc 

a9 

00 

8d 

a7 

ca 

8d 

f 2 

c9f 8 

20 

53 

50 

52 

55 

4e 

47 

20 

45 

c830 

a5 

ca 

a9 

05 

8d 

ae 

ca 

a9 

12 

ca00 

44 

55 

52 

43 

48 

20 

20 

20 

32 

c838 

f 6 

8d 

a6 

ca 

20 

67 

c7 

f0 

36 

ca0B 

20 

2a 

20 

20 

20 

49 

4e 

20 

0f 

c840 

42 

a0 

00 

84 

bd 

bl 

fb 

85 

c7 

cal0 

20 

20 

20 

2a 

00 

0d 

ff 

ff 

f 6 

c848 

62 

cB 

bl 

fb 

85 

63 

20 

af 

4d 

cal8 

ff 

20 

20 

20 

20 

20 

20 

56 

64 

c850 

c4 

20 

3c 

c5 

a0 

02 

bl 

fb 

c5 

ca20 

41 

52 

49 

41 

42 

4c 

45 

4e 

3d 

c858 

2c 

a6 

ca 

d0 

02 

29 

f e 

8d 

24 

ca28 

0d 

ff 

ff 

ff 

ff 

20 

3d 

3d 

a5 

c860 

a3 

ca 

a2 

00 

86 

bd 

20 

df 

a8 

ca30 

3d 

3d 

3d 

3d 

3d 

3d 

3d 

0d 

d0 

c868 

c5 

a0 

03 

bl 

fb 

85 

62 

c8 

7b 

ca38 

00 

20 

56 

41 

52 

49 

41 

42 

ff 

c870 

bl 

fb 

85 

63 

20 

3c 

c5 

20 

28 

ca40 

4c 

45 

20 

20 

20 

5a 

45 

49 

b7 

c878 

af 

c4 

20 

d2 

c4 

20 

0f 

c7 

05 

ca48 

4c 

45 

4e 

ff 

ff 

ff 

00 

2a 

lf 

c880 

4c 

3c 

c8 

60 

8d 

90 

c8 

8e 

c6 

ca50 

3d 

3d 

3d 

3d 

3d 

3d 

3d 

3d 

50 

c888 

91 

c8 

a2 

00 

8e 

a5 

ca 

ad 

c3 

ca58 

2a 

00 

Bd 

53 

50 

45 

49 

43 

0b 

c890 

ff 

ff 

f0 

12 

c9 

ff 

f0 

0f 

8c 










c898 

20 

f 7 

c3 

ee 

90 

cB 

dB 

03 

lb 











c8a0 

ee 

91 

c8 

4c 

8f 

c8 

60 

20 

13 











c8a8 

3c 

c5 

4c 

9b 

c8 

a9 

45 

a2 

82 











c8b0 

c9 

20 

84 

c8 

a0 

02 

a9 

ec 

5e 
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ca60 

■ 

48 

45 

52 

20 

56 

4f 

4c 

4c 

8d 

ca68 

■ 

20 

21 

21 

0d 

00 

0d 

41 

42 

f 5 

ca70 

s 

42 

52 

55 

43 

48 

20 

21 

21 

e5 

ca78 

■ 

m 

0d 

00 

54 

48 

45 

4e 

20 

46 

77 

ca80 

■ 

■ 

4f 

52 

20 

20 

4e 

45 

58 

54 

le 

ca88 

■ 

• 

20 

52 

55 

4e 

20 

20 

4f 

4e 

cd 

ca90 

• 

20 

2d 

20 

47 

53 

55 

42 

20 

61 


ca98 : 

47 

4f 

54 

4-f 

20 

20 

20 

20 

4a 

caa0 : 

20 

20 

2a 

00 

00 

00 

00 

00 

5b 

caa8 : 

00 

f 9 

b-f 

00 

00 

00 

05 

00 

a9 

cab0 : 

00 

00 

00 

00 

00 

00 

00 

00 

bl 


Listing 2. »Cross-Ref 64«. (Schluß) 


# 

• »C000 



BEO 

SETDB 



CFOR 

JMP FOR 


AKOPADR 

■ IF1 



CMP 

*'» 1 

STATEMENT 


CNEXT 

JMP NEXT 


NKOPADR 

» *F9 



BEO 

SETDB 




JMP SPRLOOP 


CHRGET 

* 10073 



CMP 

«»Bl | 

FOR 


SPRSUCH 

JSR NXTCHR 


CHRGOf 

= »0079 



BEO 

SETDB 




CMP »*22 


GEIZEIL 

= »A96B 



JSR 

CHKALPH 




BEO LSS1 


TABENDL 

■ «57 



BCC 

LTESTI 




CMP »0 


TABENDH 

= *58 



JSR 

VARGET 




BEO LSS2 


ZEI1L 

= *FB 



JSR 

INZEII 




JMP SPRSUCH 


ZEI1H 

■ «FC 



JSR 

OVFLOW 



LSSI 

JMP SPRLOOP 


ZEI2L 

= »FD 


LTEST1 

LDX 

«7.00000080 


LBS2 

JSR NEXTLINE 


ZE12H 

- »FE 



STX 

DBSTAT 




JMP SPRLOOP 


LAENGE 

= *B6 



JMP 

VARLOOP 




J 


TEMP 

= $BD 


SETDB 

LDX 



GOTO 

JSR ZEILOUT 






STX 

DBSTAT 




LDA »7.00080010 



JHP SCONTRQL 



JMP 

VARLOOP 




JMP AUSGABE 


VAR 

JSR VSIART 

SUCHT VARIABLEN 

VARSUCH 

JSR 

NXTCHR 




i 



JSR DRVAR 

AUSGABE V.KOPF 


CMP 

*»22 



GOSUB 

JSR ZEILOUT 



JSR VAROUT 

" DER VAR. 


BEO 

LKS1 




LDA «7.0000010» 


JHP CARET2 

ZEILENVORSCHUB 


CMP 

«0 




JMP AUSGABE 


VAR2 

LDA SVSTAT 

; VAR. IN REIHENF. 


BEO 

LWS2 




i 



LSR A 

i 


JMP 

VARSUCH 



RUN 

JSR CHKBPC ; 

NAE. ZCHN NUM.? 


LSR A 

■> 

LWS 1 

JMP 

VARLOOP 




J€R CHKNUM ; 

JA: AUSGABE 


BCS VAR3 

i 

Lws: e m 

i 





BCC LRUNI i 

NEIN: WEITER 

VAR3 

JSR VSTART 

JSR INTEND 

; NEIN! SUCHEN 

TAB. UM I KUERZ. 



JSR ZEILOUT 

DEC POINTER ; 

DA CHKSPC AUF N. 


JSR INIT 

; INITIALSIEREN 

SPRUNG 

LDA 

«5 , 

ZNR+CODE+ZNR 


LDY POINTER j 

ZCHN STELLT 


JSR TESTTAB 

TABELLE LEER? 


STA 

LAENGE 




LDA «100010000 



BCS LVAR2 



STA 

LINES ; LF NACH 5 

ZEILEN 


JMP AUSGABE 



RTS 

JA: RTS 


JSR 

SETTAB 



LRUNI 

JMP SPRLOOP 


LVAR2 

JSR SORT 

; TAB. SORTIEREN 


JSR 

SETBER 




i 



JSR DECTEND 



LDA 

TEMP 



FOR 

JSR ZEILOUT 



JSR DRVAR • 



CUP 

#*FF 




INC FANZ j 

OFFENE FOR*1 


JSR VAROUT 



BEO 

SZEILE2 




LDA «101000000 



JMP CARET2 



JSR 

DRSPR 




STA TSTAT 


SPR 

JSR SPRUNG i 

SPRUENGE SUCHEN 


LDA 

• 0 




JSR TEXTAUS 



JSR CARET2 i 

UND AUSGEBEN 


STA 

ZLANG 



LFORI 

JSR CHKSPC | 

TEXT BIS AUS- 


JMP INTEND 



JMP 

SZEILEl 




CMP **B2 i 

»EBEN (••':*B2I 

AN 

JSR INIT 

ANGESPRUNGENE 

SZEILE 

JSR 

NEXTLINE 




BEO LF0R2 i 



JSR TESTTAB 

ZEILEN AUSGEBEN 

SZEILE1 

LDA 

TEMP i 

KODE FUER 

ENDE? 


JSR CHROUT i 

GEBEN 


BCS LAN1 



CMP 

»»FF 




JMP LFORI 



RTS 



BNE 

SZEILE2 



LF0R2 

JSR LINEFEED 


LAN 1 

JSR SORT 



RTS 





JMP SPRLOOP 



JSR DECTEND 


SZEILE2 

LDA 

*100000001 

i STATUS 

FUER 


1 



JSR DRAN 



STA 

THSTAT 

: 5 LEERZEICHEN 

NEXT 

LDA POINTER 



JSR ZIELE 


SPRLOOP 

JSR 

NXTCHR 




PHA 



JMP CARET2 



CMP 

• 0 | 

ZEILENENDE ? 

NEXT1 

DEC FANZ 



1 



BEQ 

SZEILE 



NEXT2 

JSR NXTCHR 


VBTART 

LDA «6 

■, = ZNR+CODEfZNR 


CMP 

»*22 i 

ODER - 

REM? 


JSR TRZCHN 



STA LAENGE 



BEO 

SPRSUCH } 

DANN BIS 

• 0. 


BEQ NEXT3 



JSR SETTAB 



CMP 

HBF ; 

NEUE ZEILE 


CMP »', 



JSR SETBER 



BEO 

SZEILE | 

WEITER 



BEO NEXT1 



JMP VZEILE2 



CMP 

**89 | 

GOTO ? 



JMP NEXT2 


VZEILE 

JSR NEXTLINE 



BEQ 

CGOTO 



NEXT3 

PLA 


VZE1LE2 

LDA »110000000 


CMP 

•lao | 

GOSUB 7 



STA POINTER 



STA DBSTAT 



BEO 

CGOSUB 




JSR ZEILOUT 



LDA TEMP 

I KODE FUER ENDE? 


CMP 

**A7 1 

THEN ? 



LDA »100100000 


CMP »«FF 

| NEIN: HEITER 


BEO 

CTHEN 




STA TSTAT 



BNE VARLDOP 

j JA: ENDE 


CMP 

**8A | 

RUN 7 



JSR TEXTAUS 



RTS 



BEO 

CRUN 



LNEXT1 

JSR CHKSPC 


VARLOOP 

JSR NXTCHR 



CMP 

**91 ( 

ON 7 



JSR TRZCHN 1 

SOLANGE ZCHN 


CMP »«20 



BEQ 

CON 




BEO LNEXT3 | 

AUSG. BIS Z.ENDE 


BEO VARLOOP 



CMP 

**81 ; 

FOR 7 



JSR CHROUT 



CMP »0 

ZEILENENDE ? 


BEO 

CFOR 




JMP LNEXT1 



BEO VZEILE 



CMP 

»«82 j 

NEXT 7 


LNEXT3 

JSR LINEFEED 



CMP *»22 

=* ODER = REH 9 


BEQ 

CNEXT 




JMP SPRLOOP 



BEQ VARSUCH 

DANN BIS 11 0. 


JMP 

SPRLOOP 







CMP »*8F 

NEUE ZEILE 

CGOTO 

JMP 

GOTO 







BEQ VZEILE 

I HEITER 

CGOSUB 

JMP 

GOSUB 







CMP *»A7 

BEO SETDB 

i THEN 

CTHEN 

CRUN 

JMP 

JMP 

THEN 

RUN 
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i 

JHP BASTRT 

BNE LSYSB ; NEIN: ENDE 

ON JSR ZEILOUT 

; 

LSYS7 JSR CHRGET 

ION! JSR CHKSPC 

NEXTL1NE LDY «0 

JSR GETZEIL 

CUP »»89 ) 60TO ? 

LDA (NKOPADRI.Y 

LDA *14 

BES GNTQ 

BNE LNL1 

STA BERENL 

CRP l*8D | 60SUB? 

INY 

LDA «15 

BES QNBUB 

LDA (NKOPADRI.Y 

STA BERENH 

JHP LON1 

BEQ NLENDE 

LSYSB RTS 

ONTO LDA »200001010 

LNL1 LDA NKOPADR 

1 

JHP L0N2 

STA AKOPADR 

SETSVS ORA SYSTAT ; <AC> HIT SYSTAT 

ONSUB LDA 17.00001100 

LDA NKOPADR *1 

STB SYSTAT VERKNUEPFEN 

LQN2 JSR SORCQD 

STA AKOPADR *i 

RTS 

LDA TSTAT 

JSR CKBEN ; ENDE BEREICH? 

1 

AND »211111110 

BEQ LNL2 i NEIN 


STA TEHP 

BCC LNL2 | 

CKBST JSR ZNR i TEST, OB AKT. ZNR 

STA TSTAT 

1 

CPX BERSTH ( GROESSER ODER 

LOS »0 

NLENDE LDA-ZEI1L t SETZT TABELLEN- 

BNE LBST1 i GLEICH BER. ANF 

JSR TEXTAUS 

STA TENDL ) ENDE AUF ZEH 

CHP BERSTL 

JSR TABS 

LDA ZEI1H 

LBST1 RTS 

JSR CHKSPC 

STB TENDH 

i 

DEC POINTER 

LDA »«FF | KODE FUER 

CKBEN JSR ZNR i TEST, OB AKT. ZNR 

JSR SETBET 

STB TEHP | ENDE TESTLOOP 

CPX BERENH i GROESSER ODER 

L0N3 LDA TEHP 

RTS 

BNE LBEN1 GLEICH BER. ENDE 

JSR TSPRUNB ( SPR.ART, ZNR U. 

J 

CHP BERENL 

JSR GETSPR2 | ZIEL IN TABELLE 

LNL2 LDA ZSTAT 

LBENI RTS 

JSR CHRGOT i ENDE STATEHENT? 

AND «7.1110 1 ZNR FLAG LOE. 

? 

BES LON4 i JAl L1NEFEED 

STA ZSTAT 

SETTAB LDA »«B0 

CHP 0•, 1 HEITERE ZEILENNR. 

LDY »3 | ZEIGT AUF 0. 

STB TABENDH 

BNE LON3 J NEIN: LINEFEED 

STY POINTER j BASIC-ZECHEN 

LDA «»00 

JSR CHROUT 

LDY »0 

STB TABENDL 

LDA ZLANG 

LDA (AKOPADR),Y ; ZEIGER AUF 

RTS 

CHP »75 

STA NKOPADR ) NAECHSTE B. 

J 

BCC L0N3 

INY i ZEILE HOLEN 

SET8ER OSR INIT 

JSR CARET i LINEFEED 

LDA (AKOPADR),Y 

LBER1 JSR NEXTLINE 

JSR TABS 

STB NKOPADR *1 

LDA TEHP 

JSR TABS 

RTS 

CHP »«FF 

JSR TABS 

5 

BNE LBER2 

JHP LON3 


JSR SYSOFF 

L0N4 JSR FUNFLIN 

; HOLT SYSTEH-PBRAHETER (SYSIATI 

JHP <A7AE 

JSR CARET 

j SETZT DRUCKER 

LBER2 JSR CKBST 

JHP SPRLOQP 

; HOLT BEREICH (IN BERST/EN) 

BCC LBER1 

; 


RTS 

TSPRUNG LDY #2 

SYSGET LDA 90 

» 

STA (ZEIILI.Y 

STA SYSTBT 

BASTRT LDA «2B ; ADRESSE DER 

JSR ZNR ; ZNR AUS «14/«15 

STA BERSTL 

STA NKOPADR ■, ERSTEN BASIC 

LDY »3 j IN TABELLE 

STA BERSTH 

LDA *2C j ZEILE HOLEN 

LDA $62 

LDA »»FF 

STA NKOPADR *1 

STA (ZEIILI.Y 

STA BERENL 

RTS 

INY 

STA BERENH 

; 

LDA <63 

JSR CHRGOT 

PREVCHR DEC POINTER HOLT VORIGES 

STA (ZEIILI.Y 

CHP #', 

JSR AKTCHR s ZCHN, OHNE 

RTS 

BEO LSYS0 

INC POINTER ! ZEIGER ZU 

1 

LDX »*0B 

RTS 1 VERSTELLEN 

THEN JSR CHKSPC 

JHP <A437 j FEHLER: SYNTAX 

i 

JSR CHKNUH i ZIFFER? 

LSYS0 JSR CHRSET j DRUCKER 

NXTCHR INC POINTER i HOLT NAECHSTES 

BCC THENDE i 

CHP **P 

; ; ZEICHEN 

JSR ZEILOUT i THEN HIT ZEILE 

BNE LSYS1 

AKTCHR LDY POINTER 

LDA »7.10000000 

JSR SETPRT 

LDA (AKOPADR),Y 

JSR SORCOD 

LSYS1 JSR CHRGET 

RTS 

DEC POINTER j EIN ZCHN ZURUECK, 

CHP «'S 

1 

LDY POINTER i DA CHKNUH ZU WEIT 

BNE LSYS2 

BET JSR ROHON 

JHP AUSGABE 

LDA «7.01000 

JSR <F13E 

THENDE DEC POINTER i TH-BIT SETZEN 

JSR SETSYS 

JHP ROHOFF 

LDA »210000000 

LSYS2 JSR CHRGET s ANGESSPR. ZEILEN? 

i 

STA THSTAT 

CHP »’J 

CHROUT INC ZLANG 

JHP SPRLOOP 

BNE LSYS3 

JSR ROHON 

| 

LOA »7.00100 

JSR «FFD2 

AUSGABE STA TSTAT 

OSR SETSYS 

i 

JSR SORCOD 

LSYS3 JSR CHRGET ( VARIABLEN ? 

ROHOFF PHA 

JSR TEXTAUS 

CHP »'V 

LDA 1 

•JSR TABS 

BNE LSYS4 

AND *211111110 

JSR GETSPR 1 ZIEL IN TABELLE 

LDA »7.00010 

STB 1 

JSR LINEFEED | UND AUSGEBEN 

JSR SETSYS 

PLA 

JHP SPRLOOP 

LSYS4 JSR CHRGET J VARIABLEN GORT.? 

RTS 

| 

CHP »'0 

1 


BNE LSYS5 

ROHON PHA 


LDA »7.00001 

LDA *»37 

, UNTERROUTINEN 

OSR SETSYS 

STB 1 


LSYS5 JSR CHRGET f KOHHENTAR ? 

PLA 

INIT JSR ROHOFF 

CHP 0 *K 

RTS 

LDA »0 

BNE LSYS6 

i 

STA ZSTAT 

LDA »7.10000 

CHKALPH JSR ROHON i TEST, OB AKKU ALPHA 

STA ZLANG 

JSR SETSYS 

JSR «Bl 13 i CM, NENN BUCHST. 

STA FANZ 

JSR CHRGET 

JHP ROHOFF i C=0, NENN ANDERS 

STA TSTAT 

LSYS6 CHP • , 1 FOLGEN ZNRS? 

! 

STA TEHP 

BNE LSYSB ; NEIN: RTS 

CHKNUH CHP »*3A s GROESSER ALS V? 

STA DBSTAT 

CHP »»AB j 

BPL LCN1 

STA TABENDL 

BEQ LSYS7 

CHP *»30 1 KLEINER ALS '0'? 

LDA *«A0 

JSR CHRGET 

BHI LCN1 [ JA: C=0 

STA TABENDH 

JSR GETZEIL 

SEC i NEIN: C-l 

LDA »SF9 

LDA <14 

RTS 

STA TABSTRTL 

STA BERSTL 

LCN1 CLC 

STA ZEI1L 1 ANFANG DER TAB- 

LDA <15 


LDA »»BF i ELLE AB »BFF9 

STA BERSTH 

Listing 3. Assembier-Source-Code 

STB TABSTRTH 

JSR CHRGOT 

zu »Cross-Ref 64« 

STA ZEI1H 

CHP »»AB 1 
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RTS 





CPX 

• 40 ; 

BIS POS. 40 


i 


; 





BCS 

LLF2 [ 

AUFFUELLEN 

STROUT 

JSR ROMON 

CHKSPC 

JSR 

NXTCHR 




LDA 

1520 



JSR 5B4Q7 i STRINGPARAM. HOL. 


CRP 

>520 




JSR 

CHROUT 



JSR 4B6A6 i FRESTRING 


BEQ 

CHKSPC 




JMP 

LLF1 



PHA 


RTS 




LLF2 

LDA 

ZSTAT 



LOX TEMP 


1 





ORA 

«0010 i 

LF-FLAG SETZEN 


BNE LSTR0 

TRZCHN 

cup 

>0 | 

TESTET AUF NULL 


STA 

ZSTAT 



JSR RECBUN 


BEQ 

LTZ! | 

UND ' 

' 


RTS 



LSTR0 

PLA 


CMP 

*'« 1 

JA! 

Z*l 


1 




TAX i STR.LAENGE 


BEQ 

LTZ 1 | 

NEIN! 

Z-0 

CARET 

LDA 

ZSTAT 1 

LF-FLAG LOESCHEN 


LDY »0 

UTZ1 

RTS 





AND 

«1101 



I NX 


J 





STA 

ZSTAT 


LSTR1 

DEX 

TESTTfiB 

LDA 

TABSTRTH 


CARET2 

LDA 

I40D 



BEQ LSTR2 


CMP 

TENDH 




JSR 

CHROUT 



LDA (422),Y 


BNE 

LTETA 




LDA 

10 ; 

ZEILENLAENGE:"0 


JSR CHROUT j DRUCKEN 


LDA 

TABSTRTL 



STA 

ZLANG 



INY 


CMP 

TENDL 



CARET3 

JSR 

6ET i 

TASTE GEDRUECKT? 


CMP «40D 

LTETA 

RTS 





BEQ 

LCAR4 i 

NEIN! RTS 


BNE LSTR1 


i 




LCAR1 

CMP 

13 | 

RUN/STOP? 


JSR 5AAES 

OVFLOW 

JSR 

TESTEND 




BNE 

Lt;AR3 



JMP LSTR1 


BCS 

LOVF 



LCAR2 

JSR 

SYSOFF | 

JA 

LSTR2 

JMP ROMOFF 


JSR 

SYSOFF 




LDA 

l< TBREAK 



J 


LDA 

KTOVER 




LDX 

#>TBREAK 


TEXTAUG . 

LDX 10 


LDX 

•>TOVER 




JSR 

MASKE 



LDA THSTA’T 


JSR 

MASKE 




JMP 

4A7AE 



ORA TSTAT 


JMP 

5A7AE 



LCAR3 

JSR 

GET | 

2. TASTE 


STA TSTAT 

LOVF 

RTS 





BEQ 

LCAR3 i 

FUER CONT. 

LTA1 

ASL TSTAT 


1 





CMP 

>3 



BCS FUENFAUS 

ZEILOUT 

JSR 

ZNR ; 

ZNR NACH 562/463 


BEQ 

LCAR2 



INX 


LDY 

1« 

; ZNR IN TAB 

LCAR4 

RTS 




INX i SETZE X AUF DEN 


STA 

(ZEI1L) 

,Y 



; 




INX ) NAECHSTEN TEXTAB- 


DEY 




FUNFLIN 

DEC 

LINES 



INX i SCHNITT 


TXA 





BNE 

LFUNF1 



INX 


STA 

(ZEI1L) 

.V 



LDA 

• 5 



JMP LTAI 


LDA 

10 




STA 

LINES 


FUENFAUS 

LDY 15 


STA 

TEMP 




JSR 

CARET 


LTA2 

LOA TEXT,X 


LDA 

ZSTAT 

i BEI 

1 KEINE ZNR 

LFUNF1 

RTS 




JSR CHROUT 


LSR 

A 




; 




INX 


BCS 

LZOl 



TABS 

LDA 

ZLANG ) 

ZEILENLAENGE HOL. 


DEY 


LDA 

ZSTAT 

j ZNR- 

FLAG -1 


SEC 




BNE LTA2 


ORA 

1X0001 



LTABI 

SBC 

• 10 ; 

SOLANGE POSITIV 


LDA TSTAT 


STA 

ZSTAT 




BCS 

LTABI j 

10 ADDIEREN 


BNE LTAI 


JSR 

ZAUSGABE 



EOR 

• *FF j 

ERGEBNIS INVERT. 


RTS 


LDX 

LDY 

«39 

•2 




ADC 

TAX. 

•i 



• 


JMP 

LZ02 




.NX 

: AUSGABE ALLER VARIABLEN IN DER TAB 

LZQ1 

LDX 

134 



LTAB2 

DEX 



i======= 



LDY 

17 




BEQ 

LTAB3 


VAROUT 

LDA TABSTRTL ; ZEIGER AUF 

LZ02 

LDA 

FANZ j 

FOR OFFEN? 


LDA 

I *20 



STA ZEI1L i ANFANG DER 


STA 

463 




JSR 

CHROUT 



LDA TABSTRTH ; TABELLE SETZEN 


BEQ 

LZ03 } 

NEIN} 

RTS 


JMP 

LTAB2 



STA ZEI1H 


STA 

TEMP 



LTAB3 

RTS 




LDA TENDL 


JSR 

LTA2 




I 




STA TABENDL 


LDA 

• 0 



SETPRT 

LDA 

• 4 



LDA TENDH 


STA 

562 




LDX 

• 4 



STA TA3ENDH 


JSR 

ZAUSGABE 



LDY 

• $6G ; 

SEK B ♦ 560 


LDA «5 j STARTWERT 3 

LZ03 

LDA 

IO 




JSR 

4FFBA i 

FILPAR 


STA LINES ) FUER ABSAETZ 


STA 

TEMP 




JSR 

4FFB1 l 

LISTEN 


JSR CARET2 j ZLANGi=0 U. 


JMP 

TABS 




LDA 

• 568 ; 

SEKADR 

LVAROl 

JSR TESTEND s TABELLE ENDE? 


J 





JSR 

5FF93 i 

SEKLST 


BEQ LVAR09 g JA: RTS 

ZNR 

LDY 

• 3 

i 

HOLT NR. DER 


LDA 

14 


LVAR02 

JSR SETVANZ 


LDA 

(AKQPADR),Y j 

AKT. ZEILE 


STA 

49A 



LDY »1 | 1. ZEICHEN 


TAX 


i 

NACH $62/563 


RTS 




LDA (ZEI1L),Y i AUSGEBEN 


DEY 


i 

UND A,X 


J 




JSR CHROUT 


LDA 

(AKOPADR),Y 


SYSOFF 

LDA 

PROPORT 



INY 1 2.ZEICHEN 


STX 

462 




CMP 

• S35 



LDA (ZEIILI.Y j AUSGEBEN, 


STA 

463 




BNE 

GETRES 



CMP «420 i WENN OLEER 


RTS 





LDA 

• 437 | 

ROM AN, 


BEQ LVAR03 


; 





STA 

1 1 

SA000 KOPIERT WIRD 


JSR CHROUT 

ZAUSGABE 

JSR 

RQHON 




LDA 

• SAB 


LVAR03 

JSR STATOUT 


LDX 

>490 5562/563 WIRD ALS 


STA 

4 



JSR TABS 


SEC 

i INTEGERZAHL IM 


LDY 

• 0 


LVAR04 

LDY 13 •, ZNR HOLEN 


JSR 

4BC49 i 

16-BIT 

ADRESS- 

LROMK 

LDA 

(3),Y 



LDA (ZEIILI.Y j UND NACH 


JSR 

4BDDF gFORMAT 

AUSSEBEN 


STA 

(31 ,Y 



STA 462 1 462/463 


JSR 

STROUT 

i 4AB1E 


INY 




INY 


JMP 

ROMOFF 




BNE 

LROMK 



LDA (ZEIIL).Y 


j 





INC 

4 



STA 563 

RECBUN 

EOR 

I4FF 




LDA 

4 



LDA «0 


ADC 

16 




CMP 

• 4C0 



STA TEMP 


TAY 





BNE 

LROMK 



JSR ZAUSGABE 

LREC1 

BEO 

LREC2 




1 




LDY tS !"*" HINTER ZNR 


LDA 

1520 



GETRES 

LDA 

GETSP 



LDA (ZEIILI.Y ;WENN DEF 


JSR 

CHROUT 




STA 

47A 



ASL A iSONST WEITER 


DEY 





LDA 

GETSP ♦! 


BCC LVAR05 


JMP 

LRECl 




STA 

57B 



LDA »* 

LREC2 

RTS 

1 




PRTOFF 

LDA 

• 4 


LVAR05 

JSR CHROUT 

JSR TABS 

L1NEFEED 

LDA 

ZSTAT 




JSR 

JFFAE j 

UNLIST 


INC VANZ 


LSR 

B 1 

BEI BIT 1-0 


JSR 

4FFC3 j 

SCHLIESSEN 


JSR VARVERG ;ALTVAR=NEUVAR? 


LSR 

A i 

KEIN LF 


LDA 

• 3 



PHP 'j JA: NUR ZNR 


BCC 

LLF1 




STA 

49A 





JSR 

FUNFLIN 



LDA 

PROPORT 


Listing 3. Der Source-Code zu 

LLF1 

JMP 

LDX 

CARET 

ZLANG 

KEIN 

LF, DANN 


STA 

RTS 

1 


»Cross-Ref 64« 

(Fortsetzung) 
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Tips & Tricks 



JSR 

INZEI1 j 

NEIN: UND NAH 


JSR 

TESTEND 

; ENDE DER TAB? 


BEO 

LVARQ8 

| JA: ENDE 


PLP 

; 

AUSGEBEN 


BEO 

LVAR04 j 

(NUR ZNR) 


LOA 

VANZ 

i MEHR ALS 7 


CMP 

18 

i VAR AUSGE6.? 


BCC 

LVAR06 

i JA: LF, 


JSR 

CARET 

) VANZ:-8 


JSR 

FUNFLIN 



JSR 

SETVANZ 



JMP 

LVAR07 


LVAR06 

CMP 

M , 

4 VAR?: LF 


BCC 

LVAR07 i 

WENIGER: WEITER 


JSR 

LLF2 


LVAR07 

JSR 

LINEFEED 



JMP 

LVAR02 


LVAR08 

PLP 



LVAR09 

JMP 

CARET2 


SETVANZ 

I 

LDA 

• 8 



STA 

VANZ 



RTS 




i HOLEN EINER VARIABLEN AUS BASIC TEXT 


I 


VARGET 

LDY 

•1 I 

! ZEICHEN IN TAB. 


STA 

(ZEI1L),Y 



JSR 

NXTCHR i 

NAECHSTES ZCHN 


LDY 

*2 



JSR 

CHKALPH i 

BUCHSTABE? 


BCS 

LVARGET1 i 

l JA: IN TAB. 


JSR 

CHKNUli ; 

ZIFFER? 


BCS 

LVARGET! | 

l JA: IN TAB. 


TAX 

1 

NEIN:AC SICHERN 


LDA 

*420 

LEER IN TAB. 


STA 

(ZEI1L),Y 



JMP 

LVARGET2 


LVAPGET1 

STA 

IZEI1L),Y 



JSR 

NXTCHR 



TAX 



LVARGET2 

LDA 

* 7.01000000 



CPX 

* * i 

STRING? 


BEO 

LVARGET* 



CPX 

»■x j 

; INTEGER? 


BEO 

LVARGET3 



LSR 

A i 

: REAL 


LSR 

A 



JMP 

LVARGET5 


LVARGET3 

LSR 

A ; 

INTEGER 

LVARGET 4 

PHA 

! 

AC SICHERN 


JSR 

NXTCHR 



TAX 




PLA 



LVARGET5 

CPX 


DIMENSIONIERT? 


BNE 

LVARGET 6 

i NEIN 


ORA 

• 7.10808000 

i JA 1 

LVARGET6 

LDY 

10 

I STATUS AN 5. 


STA 

(ZEI1L),Y i 

STELLE IN TAB. 


JSR 

ZNR 

; ZNR IN TAB. 


LDY 

*4 

iAN 4. /S. STELLE 


STA 

(ZEI1L),Y 



DEY 




TXA 




STA 

( ZEI1L),Y 



LDA 

DBSTAT 

1 DEF/BEN AN 5. 


LDY 

• 5 j 

STELLE 


STA 

(ZEIIU.Y 



RTS 

1 




i PRUEFI STATUSBVTE DER VARIABLEN 


i UND 

GIBT 

TYP - $ 

,*,()- AUS 

STATOUT 

LDY 

• 0 



LDA 

(ZEI1L) 



LSR 

A 



LSR 

A 

: BITS 0-3 


LSR 

A 

| UEBERLESEN 


LSR 

A 



LSR 

A 

i REAL? 


BCS 

LSTAT2 



LDX 

• ■7. 

i INTEGER? 


LSR 

A 



BCS 

LSTATl 



DEX 


jSTRING! 

LSTAT1 

TXA 




JSR 

CHROUT 


LSTAT2 

LDA 

(ZEI1L) 

, Y ; FELD? 


ASL 

A 



BCC 

LSTAT3 

! NEIN: RT! 


LDA 

• ‘ ( 



JSR 

CHROUT 



LDA 

• ') 



JSR 

CHROUT 


LSTAT3 

RTS 




SORTIEREN VON FELDERN NACH 
"BUBBLESORT" 

UEBERGABE: 

"LAEN6E“ DES FELDES 
“TABSTRT" ANFANG DES FELDES 

"TABEND" ENDE 


ERHOEHE ZEIGER1 UM LAENGE 


INZEI1 SEC 

LDA ZEI1L 
SBC LAENGE 
STA ZEI1L 
BCS LINZ1 
DEC ZEIIH 
LINZ1 RTS 
I 


ROUTINE BESTIMMT ZEIGER AUF I+l-TES 
ELEMENTi PARAMETER: LAENGE, ZEH 


ZEIG2 LDA ZEIIH 
STA ZEI2H 
SEC 

LDA ZEI1L 
SBC LAENGE 
STA ZEI2L 
BCS LADD1 
DEC ZEI2H 


LADD1 RTS 



•, VERGLEICH DER DURCH ZEH, ZEI2 UND 
i LAENGE BESTIMMTEN FELDER 
i C*l, WENN A(11>A11 + 1) 


i 2-1, WENN AU)-A<1+1) (Y-LAENGE) 

VERGL LDY 18 

LV1 CLC 

LDA (ZE11L),Y 
CMP (ZEI2L),V 
BEO LV2 GLEICH 
BCS LV3 ; 6R0ESSER 
BCC LV3 j KLEINER 
LV2 SWf* C i «EI" 1 SECHSTES 
CPY LAENGE i X-LAENGE? 

BEO LV3 i JA: ENDE 
JMP LV1 i ELEMENT TESTEN 
LV3 RTS 

i VERGLEICH ZWEIER VARIABLEN 
i Z-l, WENN NAME UND STATUS GLEICH 

•eseas=aa=3eaB2=3SBsa=ES=sB=sas=sss=s==s 

VARVERG JSR IZEIG2 

LDA «3 i NUR 3 BYTE 
STA LAENGE [ (STAT, NAME) 

JSR VERGL i VERGLEICHEN 

PHP j LAENGE WIEDER 

LDA •4 ; 6 

STA LAENGE 

PLP 

RTS 

I 


TAUSCHE ZWEI FELDER, DIE DURCH ZEI1L 
ZEI2L UND LAENGE BESTIMMT SIND 


EXCHANGE 

LDY 

•8 

LEXCHI 

CPY 

LAENGE i SOLANGE YCLAE. 


BEO 

LEXCH2 


LDA 

(ZEIILI.Y 


PHA 

( VERTAUSCHE 


LDA 

(ZEI2L),Y i ZWEI BYTES 


STA 

(ZEI1L) , Y 


PLA 



STA 

(ZEI2LI.Y 


I NY 



JMP 

LEXCHI 

LEXCH2 

• ------ 

RTS 

i 


} ENDE 

DER 

TABENDLLE ERREICHT? 

i (zeii • 

TABEND? -■> Z-l) 

TESTEND 

LDA 

ZEIIH 


CMP 

TABENDH 


BNE 

LTEND1 


LDA 

ZEI1L 


CMP 

TABENDL 

LTEND1 

RTS 

5 



TABEND UM EIN ELEMENT ERNIED 


DECTAB CLC 

LDA TABENDL 
ADC LAENGE 
STA TABENDL 
BCC LDECTAB 
INC TABENDH 
LDECTAB RTS 


i 


1 TEND 

UM EIN ELEMENT 

VERRINGERN 

INTEND 

CLC 

LDA TENDL 

ADC LAENGE 

STA TENDL 

BCC LINTEN1 

INC TENDH 


UNTEN! 

RTS 

i 


J »■■•■■■ 

? TEND 

UM EIN ELEMENT 

ERHOEHEN 

DECTEND 

SEC 

LDA TENDL 

SBC LAENGE 

STA TENDL 

BCS LDETEN1 

DEC TENDH 


LDETEN1 

RTS 

» 



i SORTIEREN 
I"". 


SORT 

LDA 

TENDL i 

TABEND SETZEN, 


STA 

TABENDL j 

GEHT BEI SORT 


LDA 

TENDH i 

VERLOREN 


STA 

TABENDH 


LS0RT1 

LDA 

T ABSTRTL 

i ZEIGER1 AUF 


STA 

ZEI 1L 

; TABSTRT 


CMP 

TABENDL 



PHP 


; UND 


LDA 

TABSTRTH 

! TEST, OB 


STA 

ZEIIH 

; ENDE DER 


CMP 

TABENDH 

; TABELLE 


BNE 

LSORTY 

i ERREICHT 


PLP 


j JA: ENDE 


BEG 

LSORTW 


LSORTY 

JSR 

IZEIG2 



JSR 

VERGL 

■, VERGLEICHEN 


BCC 

LS0RT3 

; GRDESSER, DANN 


JSR 

EXCHANGE 

; TAUSCHEN 

LS0RT3 

JSR 

INZEI1 

; NAECHSTES 


JSR 

TESTEND 

! ENDE ERREICHT? 


BNE 

LSORTY 

5 NEIN: WEITER 


JSR 

DECTAB 

i JA: NAECHSTER 


JMP 

LS0RT1 


LSORTW 

RTS 

i 




| SETZT CHRGET - ZEIGER AUF AKT. ZEICH. 


I 


SETGET 

LSET1 

LDA 

CLC 

ADC 

STA 

PHP 

LDA 

STA 

PLP 

BCC 

INC 

RTS 

1 

POINTER 

AKOPADR 

*7A 

AKOPADR ♦ 1 
*7B 

LSETI 

*7B 

J....... 

} HOLT 

SPRUNGZIEL NACH TABELLENENDE 

•a.aaaa. 

GETSPR 

JSR 

SETGET 

GETSPR2 

JSR 

ROMON 


JSR 

CHRGET 


JSR 

GETZEIL 


LDY 

«0 


LDA 

*15 


STA 

(ZEI 1L >,Y 


STA 

«62 


1NY 



LDA 

*14 


STA 

(ZEI1L),Y 


STA 

*63 


JSR 

INZE11 


JSR 

ZAUSGABE 


JMP 

OVFLOW 


Listing 3. Der Source-Code zu 
»Cross-Ref 64« (Fortsetzung) 
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Tips & Tricks 


i = 
i 

i. 

SORCOD 


SETZT BIT FUER SPRUNG NACH ON, THEN 


LDV 12 
ORA THSTAT 
STA TSTAT 
STA (ZEIIL),Y 
RTS 


AUSGABE DER ANGESPRUNGENEN ZEILEN 

IN DER TABELLE! H,L DES SPRUNGZIELS, 
CODE DER SPRUNGART, 
L,H DER AUFRUF-ZEILE 

IELE 

LDA 

TENDL i 

ZEIGER AUF ENDE 


STA 

TABENDL | 

TEND WURDE NICHT 


LDA 

TENDH | 

GEAENDERT 


STA 

TABENDH 



LDA 

TABSTRTL } 

ZEIGER AUF 


STA 

ZEIIL | 

ANFANG 


LDA 

TABSTRTH 



STA 

ZEI1H 



LDA 

• 0 



STA 

ZSTAT 



STA 

ZLANG 



LDA 

15 



STA 

LINES 



LDA 

1X11110110 



STA 

FANZ 


ZI EL I 

JSR 

TESTEND | 

TABELLE LEER? 


BEO 

STPZIEL ; 

JA: BEENDEN 


LDY 

10 

i HIGH, LOW-BYTE 


STY 

TEMP j F 

. RECBUN 


LDA 

(ZEIIL» ,Y 

i DES ZIELS 


STA 

*42 

} HOLEN 


INY 




LDA 

(ZEIIL) ,Y 



STA 

*63 



JSR 

ZAUSGABE 



JSR 

TABS 



LDY 

#2 

i SPRUNGART HOLEN 


LDA 

(ZEIIL),Y 



BIT 

FANZ 



BNE 

LZIEL2 



AND 

#7.11111110 


ZIEL2 

STA 

TSTAT 



LDX 

#0 



STX 

TEMP j F 

. RECBUN 


JSR 

LTA1 

i TEXTAUSGABE 


LDY 

#3 

i LOW,HIGH-BYTE 


LDA 

(ZEIIL),Y 

i DER AUFJiUFENDEN 


STA 

*62 

i ZEILE 


INY 




LDA 

(ZEIIL),Y 



STA 

*63 



JSR 

TABS 



JSR 

ZAUSGABE 



JSR 

LINEFEED 



JSR 

INZEIl 



JMP 

LZ1EL1 


ITPZIEL 

RTS 

I 



AUSGEBEN VON TEXT 


KASKE 

STA 

ADRE*! 


STX 

ADRE+2 


LDX 

10 


STX 

ZLANG 

ADRE 

LDA 

*FFFF 


BEQ 

NASKE3 


CMP 

• 235 


BEO 

NASKE4 


JSR 

CHROUT 

MASKE 1 

INC 

ADRE*1 


BNE 

MASKE2 


INC 

ADRE+2 

MASKE2 

JMP 

ADRE 

MASKE3 

RTS 



MA5KE4 

JSR 

TABS 


JMP 

1 

MASKEl 

j AUSGABE DER 'MASKEN" FUER SPR U. VAR 

»- 

DRAN 

LDA 

•(TSPRK 


LDX 

•!TSPRK 


JSR 

MASKE 


LDY 

• 2 

LDRANI 

LDA 

• < TANR 


LOX 

#>TANR 


JSR 

MASKE 


DEY 



BNE 

LDRANI 


JMP 

DRSPR1 

DR3PR 

LDA 

•(TSPRK 


LOX 

»>TSPRK 


JSR 

MASKE 


LDY 

• 2 

LDSP1 

LDA 

•(TSPRR 


LDX 

•»TSPRR 


JSR 

MASKE 


DEY 



BNE 

LDSP1 

DRSPR1 

LDY 

• 2 

LDSP2 

LDA 

•(TSPRU 


LDX 

•»TSPRU 


JSR 

MASKE 


DEY 



BNE 

LDSP2 


RTS 


DRVAR 

5 

LDA 

»(TVARK 

/ 

LDX 

•»TVARK 


JSR 

MASKE 


LOY 

#2 

DRVAR1 

LDA 

•(TVARR 


LDX 

# >TVARR 


JSR 

MASKE 


DEY 



BNE 

DRVAR1 


LDY 

#8 

DRVAR2 

LDA 

•(TVARU 


LDX 

•>TVARU 


JSR 

MASKE 


DEY 

s*cr onurmf» 


BNE 

DRVAR2 


RTS 


} = = = = = = = 


• = = = = = = = 

=====================■■=>======= 

i STEUERROUTINE 

i RUFT DIE ROUTINEN ENTSPRECHEND 

i DER 

PARAHETER AUF 


SCONTROL 

JSR 

SYSGET 


LDA 

»7A 


STA 

GETSP 


LDA 

*7B 


STA 

GETSP *1 


LDA 

1 


STA 

PROPORT 


JSR 

ROMOFF 


LDA 

SYSTAT 


LSR 

A 


LSR 

A 


LSR 

A 


LSR 

A 


BCC 

LC0N1 


JSR 

SPR 


LDA 

SYSTAT 


LSP 

A 


LSR 

A 


LSR 

A 


BCC 

LC0N1 


JSR 

AN 

LC0N1 

LDA 

SYSTAT 


i PARAMETER HOLEN 
• SET-ZEIGER RETTEN 


; PROZESSORPORT 
i RETTEN 

i RON AUSSCHALTEN 


ABFRAGE DER 
i PARAMETER 



LSR 

A 



LSR 

A 



BCC 

LC0N2 



JSR 

VAR 


LC0N2 

LDA 

SYSTAT 



LSR 

A 



BCC 

LC0N3 



JSR 

VAR2 


LC0N3 

JMP 

SYSOFF | 

; STARTZUSTAND 


! NIEDERHERSTELLEN 
I 

1 ..... 

I TEXTE 

...................................... 

TSPRK .BYTE 13,235,255,255 

.TEXT " SPRUNGBEFEHLE' 

•BYTE 13,253,255,233,233 
.TEXT " 

■BYTE 13,0 

TSPRR .TEXT ■ IN ZEILE SPRUNS DURCH" 
•BYTE 255 
.TEXT ' NACH' 

.BYTE 255,0 

TSPRU .TEXT .. 

.TEXT 
•BYTE 0 

TANK .BYTE 255,255,255 

.TEXT "ANGESPRUNGENE ZEILEN" 

•BYTE 13,255,255,255 
.TEXT " 

.BYTE 13,0 

TANR 

■ TEXT '* ZIEL * SPRUNG DURCH • 
.TEXT " IN l" 

•BYTE 0 


TVARK 

.BYTE 

13,255,255,255 


■ TEXT 

" VARIABLEN' 


• BYTE 

13,255,255,255,255 


.TEXT 

" == = = = » = =- 


■ BYTE 

13,0 

TVARR 

.TEXT 

" VARIABLE ZEILEN" 


• BYTE 

255,255,255,0 

TVARU 

• TEXT 

"*========*“ 


■ BYTE 

0 

TOVER 

.BYTE 

13 


■ TEXT 

"SPEICHER VOLL ■! 


.BYTE 

13,0 

TBREAK 

• BYTE 

13 


.TEXT 

■ABBRUCH !!' 


■ BYTE 

13,0 


TEXT 

• TEXT 

•THEN 

FOR 


■ TEXT 

"RUN 

ON - 


■ TEXT 

'GOTO 


TSTAT 

■ BYTE 

0 


POINTER 

• BYTE 

0 

x 

ZLANG 

■ BYTE 

0 


FANZ 

■ BYTE 

0 


ZSTAT 

.BYTE 

0 


THSTAT 

■ BYTE 

0 


TABSTRTL 

■ BYTE 

*F9 


TABSTRTH 

■ BYTE 

*BF 


TENDL 

■ BYTE 

0 


TENDH 

• BYTE 

0 


P8STAT 

■ BYTE 

0 


LINES 

• BYTE 

5 


VANZ 

• BYTE 

0 


SYSTAT 

• BYTE 

0 


BERSTL 

• BYTE 

0 


BERSTH 

.BYTE 

0 


BERENL 

■ BYTE 

0 


BERENH 

■ BYTE 

0 


PROPORT 

■ BYTE 

0 


GETSP 

• BYTE 

0,0 



.END 




NEXT 


Listing 3. Der Source-Code zu 
»Cross-Ref 64« (Schluß) 


10 rem 

110 rem 

20 gosub 100 : goto 200 

120 b=0 : if b=l then b=b+2 

30 rem 

130 rem 

40 run 50 

140 print d;g;e$ k 

50 rem 

150 rem 

60 if a=0 then gosub 100 : goto 50 

160 e=g+d+k:d=k 

70 rem 


80 on a goto 10,20,30,40 

Listing 1. Dieses, für sich unsinnige, Basic-Programm soll 

90 rem 

die Leistungsfähigkeit der Dokumentationshilfe »Cross- 

100 if a<>0 then on a gosub 100,90,70,80 

Reference-Liste« veranschaulichen 
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